{* Задача 574 *}

Unit ZADACH574;
Interface
Implementation
Begin
 writeln('Бабушка вяжет в неделю 3 пары детских носков, пару женских и пару мужских и продает их. Считая, что в месяце 4 недели, определить, какую прибыль бабушка имеет за месяц.');
End.

Program zadach574;

Uses zadach574.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  sd : real;
  sg : real;
  sm : real;
  p  : real;
Begin
  clrscr; {* Очистка экрана *}
  Writeln('Введите стоимость носков:');
  Write('детских ');
  read(sd);
  Write('женских ');
  read(sg);
  Write('мужских ');
  read(sm);
  p := 4 * (3 * sd + sg + sm);
  writeln('Прибыль в месяц ', p : 2:2, ' у.ед.');
  readkey; {* Ждем нажатия пользователя *}
End.