program AD1Q3(input{teclado}, output{video});

procedure ler_valor_n (var n{s}: integer);
begin
   write(output, 'Informe valor de n: ');
   readln(input, n);
   if n < 1 then
      writeln(output, 'O valor de n deve ser maior ou igual a 1.');
end;

procedure imprime_colunas (i{e},n{e}: integer);
begin
   if (i<=n) then
      begin
         write(output,i*i:4);
         imprime_colunas(i,n-1)
      end
end;

procedure imprime_linhas (i{e},n{e}: integer);
begin
   if (i<=n) then
      begin
      imprime_colunas(i,n);
         imprime_linhas(i+1,n);

         writeln(output)
      end
end;

var
   n: integer;

begin
   ler_valor_n(n);
   imprime_linhas(1,n)
end.