Pascal/Turbo Pascal - Matriz

uses crt;

var

	matriz:array[1..2,1..4] of integer;

	i,j:byte;

begin

	clrscr;

	matriz[1,1]:=63; matriz[2,1]:=0;

	matriz[1,2]:=14; matriz[2,2]:=0;

	matriz[1,3]:=52; matriz[2,3]:=0;

	matriz[1,4]:=45; matriz[2,4]:=0;

	{Operacion}

	for i:=1 to 4 do

		matriz[2,i]:=sqr(matriz[1,i]);

	{Mostrar matriz}

	for i:=1 to 2 do begin

		for j:=1 to 4 do

			write(matriz[i,j]:5,' ');

		writeln;

	end;

end.

program matriz;

uses crt;

const

  filas = 2 ;

  columnas = 4 ;

var

  Matriz : array[1..filas, 1..columnas] of integer;

  i, j : integer;

function cuadrado(n:integer):integer;

begin

  cuadrado := n * n ;

end;

(*  programa principal *)

begin

  clrscr;

  for j := 1 to columnas do

  begin

    write(' ingrese numer :[1 ,', j,'] =');

    readln(Matriz[1,j]);

    Matriz[2,j] := cuadrado(Matriz[1,j]);

   end;

   writeln;

   writeln;

   writeln(' los cuadrados en su 2da fila');

   for i:=1 to filas do

   begin

     for j:=1 to columnas do

     begin

       write(Matriz[i,j]:5)

     end;

     writeln;

   end;

   readln;

end.