{* Задача 554 *}

Unit ZADACH554;
Interface
Implementation
Begin
 writeln('Чтобы связать один шарф, требуется 200 г пряжи. Пряжа состоит на 40% из мохера и на 60% из полиакрила. Сколько мохера и полиакрила потребуется, чтобы изготовить В шарфов?');
End.

Program zadach554;

Uses zadach554.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  p : real;
  m : real;
  b : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('b=');
  read(b);
  m := 200 * 0.4 * b;
  p := 200 * 0.6 * b;
  writeln('Для изготовления ', b, ' шарфов нужно:');
  writeln('Махера ', m : 2:1, ' гр.');
  writeln('Полиакрила ', p : 2:1, ' г.');
  readkey; {* Ждем нажатия пользователя *}
End.