mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:43:04 +01:00
17 lines
224 B
ObjectPascal
17 lines
224 B
ObjectPascal
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.
|