Тема 4 №8 пункт 16

program N8P16;

var i,j: integer;

begin

for i:=1 to 5 do

begin

writeln;

for j:=1 to i do

write (6 - j,' ');

end;

readln