{* Задача 555 *}

Unit ZADACH555;
Interface
Implementation
Begin
 writeln('Мельхиор – это сплав никеля и меди, массы которых пропорциональны числам 2 и 9. Сколько потребуется никеля и меди для выплавки С кг мельхиора?');
End.

Program zadach555;

Uses zadach555.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  mel : real;
  med : real;
  nik : real;
  c   : real;
Begin
  clrscr; {* Очистка экрана *}
  write('c=');
  read(c);
  nik := c / 11 * 2;
  med := c / 11 * 9;
  writeln('Для выплавки ', c : 2:1, ' кг. мельхиора нужно:');
  writeln('Никеля ', nik : 2:1, ' кг.');
  writeln('Меди ', med : 2:1, ' кг.');
  readkey; {* Ждем нажатия любой клавиши *}
End.