fpcsrc/tests/webtbs/tw3111.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

var
  Start : Cardinal;
  Run,Text: PWideChar;
  RunLen: Cardinal;

begin
  Start:=100;
  Run:=nil;
  Text:=Run+10;
  Start:=Start+Run-Text;
  if Start<>90 then
    begin
      writeln('error');
      halt(1);
    end;
end.