{*** Name: Winnie Leung   Class: F.4CA  Class No.: 22 ***}
{A program to work out the report marks of 4 students on
 3 subjects using 2-dimensional array Mark1 & Mark2}
  
Program Examscore(input, output);
uses wincrt;
var   Mark1 : array[1..4, 1..3] of integer;
      Mark2 : array[1..4, 1..3] of integer;
      row, column : integer;
begin
  for row:=1 to 4 do
    begin
      write('Enter term marks of student ', row, ' : ');
      readln(Mark1[row, 1], Mark1[row, 2], Mark1[row, 3]);
    end;
  for row:=1 to 4 do
    begin
      write('Enter exam marks of student ', row, ' : ');
      readln(Mark2[row, 1], Mark2[row, 2], Mark2[row, 3]);
    end;
  writeln;
  write('The report marks: ');
  for row :=1 to 4 do
    begin
      writeln;
        for column:=1 to 3 do
          begin
            Mark1[row, column]:= Mark1[row, column] + Mark2[row, column];
            write(Mark1[row, column], '   ');
          end;
    end
end.