program test;uses wincrt;var i,j,n:integer;a:array [1..4,1..4] of integer;b:array [1..4,1..4] of integer;c:array [1..4,1..4] of integer;beginwriteln('Lotfan 12 Adad Baraye Zakhireh Kardan Dar Matris aval Vared Konid');for i:=1 to 4 dobeginfor j:=1 to 4 doreadln(a[i,j]);end;writeln('Lotfan 12 Adad Baraye Zakhireh Kardan Dar Matris dovom Vared Konid');for i:=1 to 4 dobeginfor j:=1 to 3 doreadln(b[i,j]);end;
repeatWriteln('Plaese select a operator : 1= Sum 2= Subtraction 3= Multiplication 4= Determinan 5 = Exit');readln(n);case n of1:beginfor (i= 1 to 4) for (j= 1 to 4) c[i,j] = a[i,j]+b[i,j];for (i= 1 to 4) for (j= 1 to 4)writeln(c[i,j]+''+'');end;2:beginfor (i= 1 to 4) for (j= 1 to 4) c[i,j] = a[i,k]-b[k,j];for (i= 1 to 4) for (j= 1 to 4)writeln(c[i,j]+''+'');end;3:beginfor (i= 1 to 4) for (j= 1 to 4) c[i,j] = a[i,k]*b[k,j];for (i= 1 to 4) for (j= 1 to 4)writeln(c[i,j]+''+'');end;4:
5: exit;end;until n=5;
end.