{* Задача 586 *}

Unit ZADACH586;
Interface
Implementation
Begin
 writeln('Масса 8 литров бензина 5, 68 кг. Цистерна имеет объем 500 м3. Хватит ли ее, чтобы вместить А т бензина?');
End.

Program zadach586;

Uses zadach586.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  a : real;
  v : real;
  Begin
  clrscr; {* Очищаем экран *}
  Write('Введите количество бензина в т. a=');
  read(a);
  v := 500 * 5.68 / 8;
If a.