program z1;
var i,j:integer;
begin
for i:=1 to 4 do
for j:=1 to i do write (5:3);
writeln
end
end.
Объяснение:
i - отвечает за количество строк
j - за количество цифр
количество цифр в строке равно номеру строки
