procedure E(n, m: integer; A, B: tMatrix; var C: tMatrix);var i, j: integer;  begin    for i:=1 to n do      for j:=1 to m do begin        if i<=j then C[i,j]:=A[i,j] + B[i,j] else C[i,j]:=A[i,j] - B[i,j];      end;  end;Input: three matrix. Output: new matrix which created by addition or subtraction of two elements of two matrix depending on conditions
Adding and subtracting Matrices based on condition
matrix;pascal