Program print;
Var n:integer;
begin
n:=1;
while (n <= 20) do begin
write(n, ' ');
if (n mod 10 = 0) then writeln;
n:=n+1;
end;
readln;
end.
Program print;
Var n:integer;
begin
n:=1;
while (n <= 20) do begin
write(n, ' ');
if (n mod 10 = 0) then writeln;
n:=n+1;
end;
readln;
end.