Componentes.Terceros.RemObj.../official/5.0.23.613/Pascal Script for Delphi/Samples/Import/longfortest.rops

10 lines
132 B
Plaintext

Program IFSTest;
var
i, i2: Longint;
Begin
for i := 0 to 1000000 do
begin
i2 := i -1;
end;
writeln(inttostr(i2));
End.