.......

program Project1;
const
  max = 50;

type
  matrica = array[1..max, 1..max] of integer;

var
  a, gt, dt: matrica;
  n,k: integer;
   provera: boolean;

procedure Ucitavanje(n:integer; var a:matrica);
var
   i,j: integer;
begin
  writeln('Unesite elemente matrice' );
   for i:= 1 to n do
       for j:= 1 to n do
    read(a[i,j]);
end;
procedure Ispis(n:integer; var a:matrica);
var
   i,j: integer;
begin
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        write(a[i,j], ' ' );
      writeln();
    end;
  writeln();
end;
function Gornjetrougaona(var gt:matrica; n:integer):matrica;
var
   i,j: integer;
   k:matrica;
begin
  for i:= 1 to n do
    for j:= i to n do begin
    a[i,j]:= 0;
    k[i,j]:=a[i,j];
    end;
   gornjetrougaona:= gt;

end;
function Donjetrougaona(var dt:matrica; n:integer):matrica;
var
   i,j: integer;
   m: matrica;
begin
  for j:= 1 to n-1 do
    for i:=j+1 to n do
      begin
      a[i,j]:= 0;
      m[i,j]:=a[i,j];

      end;
   donjetrougaona:= dt;



end;

begin
  provera := true;
  repeat

  write(output,'Unesite broj kolona i redova kvadratne matrice:');
  read(input,n);
  if (n > max) or (n <= 0) then
      provera := false;

   ucitavanje(n,a);
   ispis(n,a);
   writeln ('Gornje trougaona matrica je: ');
   gt:=gornjetrougaona(a,n);
   ispis (n,gt);

   writeln ('Donjetrougaona matrica je: ');
   dt:= donjetrougaona(a,n);
   ispis (n,dt);



  until(provera = false) ;


end.