Составить программу для паскаль

Question

Составить программу для паскаль, которая выведет на экран такой блок 
1 
0 
22 
00 
333 
000 
4444 
0000 
55555 
00000

Денис Полоротов · Accepted Answer

var i,j: byte; 
begin 
for i:=1 to 5 do begin 
for j:=1 to i do 
Write(i); writeln; 
for j:=1 to i do Write(0); 
Writeln; 
end; 
end.

Natali * · Answer

program p1; 
begin 
writeln( '1' ); 
writeln( '0' ); 
writeln( '22' ); 
writeln( '00' ); 
writeln( '333' ); 
writeln( '000' ); 
writeln( '4444' ); 
writeln( '0000' ); 
writeln( '55555' ); 
writeln( '00000' ); 
end.