30

составить программу в паскале

вводится с клавиатуры число и на экран выводится квадрат (матрица).

например: вводим число 2:

получаем:

1 1

1 2

вводим число 3:

получаем:

1 1 1

1 2 2

1 2 3

и т.д.

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 for var i := 1 to n do

 begin

   for var j := 1 to n do

     if j > i then

       Print(i)

     else

       Print(j);

   Writeln    

 end;

end.