NetBSD/share/doc/ps1/04.pascal/synerr.p

10 lines
123 B
OpenEdge ABL

program syn(output);
var i, j are integer;
begin
for j :* 1 to 20 begin
write(j);
i = 2 ** j;
writeln(i))
end
end.