13 lines
154 B
ObjectPascal
13 lines
154 B
ObjectPascal
|
begin
|
||
|
|
for var i:=1 to 10 do
|
||
|
|
begin
|
||
|
|
Write(i);
|
||
|
|
if i mod 5 = 0 then
|
||
|
|
begin
|
||
|
|
Writeln;
|
||
|
|
continue
|
||
|
|
end;
|
||
|
|
Write(', ');
|
||
|
|
end;
|
||
|
|
end.
|