Нужно написать программу в паскале, чтобы на экране вывелись таблицы (Тема: вложенные циклы)

а)

1

1 2

1 2 3

1 2 3 4

б)

1

2 2

3 3 3

4 4 4 4

1.

var i,j:integer;

begin

for i:=1 to 4 do

begin

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

writeln;

end

end.

2.

var i,j:integer;

begin

for i:=1 to 4 do

begin

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

writeln;

end

end.