문제 ) 정수형 데이터를 갖는 3X3 행렬 2개를 입력받아 그곱을 출력하는
         프로그햄을 작성하시오!


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Scores1 : array [1..3, 1..3] of Integer =
        ((1, 2, 3), (4, 5, 6), (7, 8, 9));
  Scores2 : array [1..3, 1..3] of Integer =
        ((1, 2, 3), (4, 5, 6), (7, 8, 9));

  i, j, iVal : integer;
begin
  for i := 1 to 3 do begin
    for j := 1 to 3 do begin
      iVal := (Scores1[i, j] * Scores2[i, j]);
      Writeln(format(([Scores1[i, j], Scores2[i, j], iVal));;
    end;
  end;

  Readln(iVal);
    { TODO -oUser -cConsole Main : Insert code here }
end.






소스인데 거의 다짜는데....출력부분(Writeln)부분을 잘모르겠네용