Ответ:

var

 i, j, n: byte;

 x: array[1..30, 1..30]of integer;

begin

 writeln('Введите кол-во строк');

 readln(n);

 for i := 1 to n do

   for j := 1 to i do

   begin

     x[i, j] := 5;

   end;

 for i := 1 to n do

 begin

   writeln;

   for j := 1 to i do

     write(x[i, j],' ');

 end;

end.