Question

Помогите решить!!! Напишите программу

Answer 1

Ответ:

Var i,j:integer;

begin

for i:=1 to 6 do

 begin

 for j:=1 to i do write(j:2);

 writeln;

 end;

end.