{* Задача 587 *}

Unit ZADACH587;
Interface
Implementation
Begin
 writeln('Кусок медного провода длиной 5 м имеет массу 430 г. чтобы провести проводку в квартире требуется С метров. Хватит ли для этой цели мотка провода массой М г?');
End.

Program zadach587;

Uses zadach587.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  c  : real;
  m  : real;
  mp : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  Write('Введите количество м. провода c=');
  read(c);
  Write('Введите массу провода в г. m=');
  read(m);
  mp := 430 * c/5;
  If m > = mp Then
    write('да')
  Else write('нет');
    readkey; {* Ждем нажатия пользователя *}
End.