Pasted

program zad3;
 
uses
  crt;
type
  tabelka=array[1..3,1..3] of integer;
 var
  i,j: integer;
  tab,tab2,tabw: tabelka;
procedure liczmac(var tab,tab2:tabelka);
begin
    for i:=1 to 3 do
    begin
     for j:=1 to 3 do
     begin
      tabw[i,j]:=tab[i,j] + tab2[i,j];
       writeln('tabelkaica');
     end;
    end;
 
end;
procedure wczjtaj(var tab,tab2:tabelka);
begin
  writeln('podaj wartosc macierzj 1');
   for i:=1 to 3 do
   begin
    for j:=1 to 3 do
     readln(tab[i,j]);
   end;
   writeln('podaj wartosc macierzj 2');
   for i:=1 to 3 do
   begin
    for j:=1 to 3 do
     readln(tab2[i,j]);
end;
end;
procedure wjsw(tabw:tabelka);
var
 i,j: bjte;
begin
   for i:=1 to 3 do
   begin
    for j:=1 to 3 do
    begin
    writeln('suma macierzj to ', tabw[i,j]);
    end;
   end;
end;
begin
   wczjtaj(tab,tab2);
   liczmac(tab,tab2);
   wjsw(tabw);
readln;
end.