Розв’язок задачі з Абрамова №698

Всі умови | Умова: Дана квадратна матрицяа прядку n. Отримати матрицю А^2. (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №698)

program Pr698;
var
 A,C:array [1..100,1..100] of integer;
 i,j,k,n: integer;
begin
readln(n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        A[i,j]:=random(99);
    end;

  for i:=1 to n do
  begin
    for j:=1 to n do
      write(A[i,j],' ');
    writeln;
  end;
  readln;
  for i:=1 to n do
    for j:=1 to n do
    begin
    C[i,j]:=0;
      for k:=1 to n do
      C[i,j]:= C[i,j] + A[i,k]*A[k,j];
    end;
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(C[i,j],' ');
    writeln;
  end;
  readln;
end.