Ученик набирает сочинение по на компьютере, используя кодировку koi-8. определите какой объём памяти займёт следующая фраза: молекулы состоят из атомов! каждый символ в кодировке koi-8 занимает 8 бит памяти.

"Молекулы состоят из атомов!" - 27 символов, включая пробелы.
27 * 8 бит = 216 бит = 27 байт.

Program z232;

var
  operation: byte;
  a, b: real;

function summa(x, y: real): real;
begin
  summa := a + b
end;

function raznost(a, b: real): real;
begin
  raznost := a - b
end;

function delenie(a, b: real): real;
begin
  delenie := a / b
end;

function proizved(a, b: real): real;
begin
  proizved := a * b
end;

function sqrt(a, b: real): real;
begin
  sqrt := sqrt(a);
  sqrt := sqrt(b);
end;

function abs(a, b: real): real;
begin
  abs := abs(a);
  abs := abs(b);
end;

function sin(a, b: real): real;

begin
  sin := sin(a);
  sin := sin(b);
end;

function cos(a, b: real): real;
begin
  cos := cos(a);
  cos := cos(b);
end;

function tan(a, b: real): real;
begin
  tan := tan(a);
  tan := tan(b);
end;

function sqr(a, b: real): real;
begin
  sqr := sqr(a);
  sqr := sqr(b);
end;

begin
  writeln('a');
  read(a);
  writeln('b');
  read(b);
  writeln('1 - сложить');
  writeln('2 - вычесть');
  writeln('3 - разделить');
  writeln('4 - умножить');
  writeln('5 - корень');
  writeln('6 - модуль');
  writeln('7 - синус');
  writeln('8 - косинус');
  writeln('9 - тангенс');
  writeln('10 - квадрат');
  read(operation);
  case operation of
    1: writeln(summa(a, b));
    2: writeln(raznost(a, b));
    3: writeln(delenie(a, b));
    4: writeln(proizved(a, b));
    5: writeln(sqrt(a, b));
    6: writeln(abs(a, b));
    7: writeln(sin(a, b));
    8: writeln(cos(a, b));
    9: writeln(tan(a, b));
    10: writeln(sqr(a, b));
  end;
end.

Const
  n = 9;
var
  a:array[1..n,1..n] of integer;
  i,j,k,max: integer;

begin
  Randomize;
  Writeln('Исходная матрица');
  max:=-100;
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if max<a[i,j] then max:=a[i,j]
    end;
    Writeln
  end;
 
  for i:=2 to n-1 do { не просматривать первую и последнюю строки }
    for j:=1 to n do
      if a[i,j]=max then a[i,j]:=0;
 
  Writeln('Результирующая матрица');
  for i:=1 to n do
  begin
    for j:=1 to n do Write(a[i,j]:4);
    Writeln
  end;
end.

Тестовое решение:
Исходная матрица
 -19 -24 -24 -21   0 -12 -16  12   7
  19  -2  22  12  -7 -19  25 -20 -21
  18   4  -6   9   7  -9  21   1   5
  25 -17  10  22  -7 -18  10  -6  -3
  24  -2   2 -22 -11 -13   5  24  11
   1  -7  16  24   4 -19  -6   7  21
  -9  -3  -5  10 -16  25   9 -15   4
  23  22 -20  14 -23  24   9 -24   8
   2  14 -10 -19 -21   8   6  -6 -17
Результирующая матрица
 -19 -24 -24 -21   0 -12 -16  12   7
  19  -2  22  12  -7 -19   0 -20 -21
  18   4  -6   9   7  -9  21   1   5
   0 -17  10  22  -7 -18  10  -6  -3
  24  -2   2 -22 -11 -13   5  24  11
   1  -7  16  24   4 -19  -6   7  21
  -9  -3  -5  10 -16   0   9 -15   4
  23  22 -20  14 -23  24   9 -24   8
   2  14 -10 -19 -21   8   6  -6 -17