Если емкость одного условного печатного листа равен приблизительно 78 кбайт, а 1 символ занимает 8 бит, то для распечатки текста одной газеты (8 усл) на принтере (скорость печати 256 символов в секунду) без учета смены бумаги потребуется минут?

program polik1907; uses crt; var   tur: real;   mes: integer; begin  writeln('***************************************');   writeln('*      мы рады вас            *');   writeln('*                в нашем турагентстве              *');   writeln('*                p o l i k    1 9 0 7                *');   writeln('*                            ! ! !                                 *');   writeln('***************************************');   writeln();   writeln('введите базовую стоимость путёвки: ');   readln(tur);   writeln('month введите номер месяца: ');   readln(mes);   case mes of      1,5,10: writeln('стоимость вашей путёвки составит ',tur,'  рублей');       6,7,8,9:   writeln('стоимость вашей путёвки составит ',tur*1.2,'  рублей');       2,3,4,11,12:   writeln('стоимость вашей путёвки составит ',tur*0.8,'  рублей');       else writeln('введите правильный номер месяца');   end; end.

var

  i, ans: byte;

begin

  ans : = 0;                           // обнуляем ответ.

  for i : = 10 to 49 do           // переменной i перебираем значения от 10 до 49, то есть все

                                              натуральные двузначные числа, меньшие  50-ти

    if i mod 11 < > 0 then   // если текущее значение переменной не делится на 11, то…

      inc(ans);                       // увеличиваем ответ

  writeln(ans);                   //выводим окончательный ответ

end.