Repository URL to install this package:
Version:
1.6 ▾
|
lazarus
/
usr
/
share
/
lazarus
/
1.6
/
components
/
PascalScript
/
Samples
/
Kylix
/
longfortest.rops
|
---|
Program IFSTest;
var
i, i2: Longint;
Begin
for i := 0 to 1000000 do
begin
i2 := i -1;
end;
writeln(inttostr(i2));
End.