10 lines
123 B
OpenEdge ABL
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.
|