WSKAŹNIKI DO ZMIENNYCH STATYCZNYCH:

program dodtablice;
uses crt;
const N=3; M=3;
type
Wektor=array[1..N,1..M] of Real;
WWektor=^Wektor;
var
i:1..N;
j:1..M;
tab1,tab2,suma:Wektor;
Wtab1,Wtab2,Wsuma:WWektor;

begin
clrscr;
writeln ('PROGRAM SUMUJACY ELEMENTY DWOCH TABLIC DWUWYMIAROWYCH');
Wtab1:=@tab1;
Wtab2:=@tab2;
Wsuma:=@suma;
writeln;
writeln ('Wprowadz elementy pierwszej tablicy: ');
for i:=1 to N do
for j:=1 to M do
begin
write('element[',i,'][',j,']=');
readln (Wtab1^[i][j]);
end;

begin
 writeln;
 writeln ('Wprowadz elementy drugiej tablicy :');
  for i:=1 to N do
   for j:=1 to M do
    begin
     Write('element[',i,'][',j,']=');
     readln (Wtab2^[i][j]);
    end;

begin
  for i:=1 to N do
   for j:=1 to M do
    Wsuma^[i][j]:=Wtab1^[i][j]+Wtab2^[i][j];
     for i:=1 to N do
      for j:=1 to M do
        writeln ('Suma elementow dwoch tablic wynosi: ',Wsuma^[i][j]:6:2);
        readln ;
    end;
   end;
end.