Напечатать числа в виде следующей таблицы — Pascal(Паскаль)

А)
5
5 5
5 5 5
5 5 5 5
5 5 5 5 5
Б)
1 1 1 1 1
1 1 1 1
1 1 1
1 1
1

program try;
var
i,j :integer;
begin
for i:=1 to 5 do
begin
for j:=1 to i do
write('5');
writeln;
end;
end.

program try;
var
i,j :integer;
begin
for i:=5 downto 1 do
begin
for j:=1 to i do
write('1');
writeln;
end;
end.