Question

В Pascal ABC
Вывести на экран последо вательность символов: 122333444455555..

Answer 1

var
I, p: byte;
begin
for i:=1 to 5 do
begin
for p:=1 to I do
begin
write(i);
end;
end;
end.