Program Primer;

USES 
    CRT;
    
CONST
    kol_strok = 3;
    kol_stolbcov = 3;
 
VAR
    A:array[1..kol_strok,1..kol_stolbcov] of Real;
    i,j:integer;

BEGIN
    Writeln('Введите элемента матрицы А:');
    for i:=1 to kol_strok do
        for j:=1 to kol_stolbcov do
        Read(A[i,j]);
ClrScr;

    Writeln('Матрица А:');
    for i:=1 to kol_strok do
        begin
            for j:=1 to kol_stolbcov do
                Write(A[i,j]:4:2,' ');
                Writeln;
            end;
    
    for i:=1 to kol_strok do
        begin
            for j:=1 to kol_stolbcov do
            A[i,j]:= A[i,j]*5;
        end;
        
    Writeln('Матрица А после умножения:');
    for i:=1 to kol_strok do
        begin
            for j:=1 to kol_stolbcov do
                Write(A[i,j]:4:2,' ');
                Writeln;
            end;
END.