{* Задача 542 *}

Unit ZADACH542;
Interface
Implementation
Begin
 writeln('Дискета 3.5 дюйма вмещает 1.44 Мбайт. Рукопись содержит 450 страниц текста. На каждой странице 60 строк по 80 символов в каждой. Поместится ли рукопись на дискету, а если нет то сколько таких дискет надо. ');
End.

Program zadach542;

Uses zadach542.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  p : real;
  s : real;
  k : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  p := 1.44 * 1024 * 1024 * 8;
  s := 2 * 80 * 60 * 450;
  If p > = s Then
  Begin
    write ('Рукопись поместится на дискету');
  End;
  Else Begin
    k := round(s / p);
  write ('Количество необходимых дискет = ', k);
End;
  readln; {* Ждем подтверждения пользователя *}
  End..