Реферат по биологии имеет объем 12600 байтов каждая страница реферата содержит 30 строк по 60 символов в строке, мощность алфавита 128 сколько страниц в реферате

12600 байт = 8*12600 = 100800бит. 1 стр = 30*60 = 1800 симв в странице. 100800/1800 = 56 страниц

Program Lana132;
uses crt;
const n=10;
var
  i,ch,max,min,sum:integer;
begin
  writeln('*** Alphaeus is thinking... ***');
  writeln('***          OK             ***');
  writeln(); writeln();
  writeln('Программа запрашивает N чисел, находит их сумму, максимальное и минимальное число');
  sum:=0;
  write('Введите 1-e число: '); read(ch);
  sum:=sum+ch;
  max:=ch; min:=ch;
  for i:=2 to n do
    begin
      write('Введите ',i,'-e число: '); read(ch);
      sum:=sum+ch;
      if max<ch then max:=ch;
      if min>ch then min:=ch;
   end;
  writeln('Сумма всех чисел равна ',sum);
  writeln('Максимальное число равно ',max);
  writeln('Минимальное число равно ',min);
end.

Описание
N-константа(столбцы)
M-константа(строки)
объявляем массив "А" из (1..N,1..M) элементов
k,i,z-целые числа
х-вещественное
объявляем массив "Б" из (1..N) элементов
начало
для i от 1 до N делай
для k от 1 до М делай
начало
считай (х)
А(i,k)=х
конец
х=А(1,1)
z=1
для i от 1 до М делай
если М целочисленое деление на 2=0
тогда 
начало
начало
для k от 1 до N делай
если А(i,k)<х тогда
начало
Б(z)=A(i,k)
Z=z+1
конец 
если z=21 то
для K от 1 до N делай
А(i,k)=Б(k)
конец
z=1
конец
для i от 1 до N делай
для k от 1 до М делай
начало
вывести
А(i,k)=х
конец
конец программы

вроде так, орфография и язык плохо похож на псевдокод)))
короче
если бы был Pascal, то реализовывать надо было бы так)) 
просто попробовал перевести на псевдокод))
исправь если что-то не так)))