Program Ex1;
    const n=10;
    type matrix= array [1..n, 1..n] of real;
    var a,b,c:matrix;
    i,j,k:integer;
Begin
    randomize;
    for i:= 1 to n do //перебор строк
        for j:= 1 to n do //перебор столбцов
            a[i,j]:= random (10);
    Writeln ('matrix A');
    for i:=1 to n do begin
        for j:= 1to n do
            write(a[i,j]:8:2);
        writeln('');
    end;
    for i:= 1 to n do //перебор строк
        for j:= 1 to n do //перебор столбцов
            b[i,j]:= random (10);
    Writeln ('matrix B');
    for i:=1 to n do begin
        for j:= 1to n do
            write(b[i,j]:8:2);
        writeln('');
    end;
    writeln('matrix C');
    for i:=1 to n do begin
        for j:= 1to n do
            write (c[i,j]:8:2);
        writeln;
    end;
end.