program macierze;
uses crt;
var A,B: array[1..2,1..2] of integer;
    klawisz: char;
label poczatek;

Begin
poczatek:
clrscr;
writeln('Dodawanie macierzy 2x2');
{Wprowadzanie danych}
writeln('Macierz A');
write('a11 = '); readln(A[1,1]);
write('a12 = '); readln(A[1,2]);
write('a21 = '); readln(A[2,1]);
write('a22 = '); readln(A[2,2]);
writeln('Macierz B');
write('b11 = '); readln(B[1,1]);
write('b12 = '); readln(B[1,2]);
write('b21 = '); readln(B[2,1]);
write('b22 = '); readln(B[2,2]);


writeln;writeln;writeln;


write(A[1,1]); write('   ',A[1,2],'         ');
write(B[1,1],'   '); write(B[1,2]);    write('      ',A[1,1]+B[1,1]); writeln('   ',A[1,2]+B[1,2]);
writeln('         +            =');
write(A[2,1]); write('   ',A[2,2],'         ');
write(B[2,1],'   '); write(B[2,2]);    write('      ',A[2,1]+B[2,1]); writeln('   ',A[2,2]+B[2,2]);


writeln;writeln;writeln;
write('Czy powtorzyc obliczenia? (t/n)');
klawisz:=readkey;
if klawisz='t' then goto poczatek;

End.