{* Задача 572 *}

Unit ZADACH572;
Interface
Implementation
Begin
 writeln('Цех по ремонту бытовой техники имеет ежедневно прибыль Р, с которой платит налог 70%. Из оставшейся доли прибыли 30% идет на развитие производства, а остальное – на заработную плату 8 работникам. Какова среднемесячная зарплата работника?');
End.

Program zadach572;

Uses zadach572.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  p   : real;
  smz : real;
Begin
  clrscr; {* Очистка экрана *}
  write('Введите величину прибыли. p=');
  read(p);
  smz := (p - p*0.7 - (p - p*0.7) * 0.3) * 25.4 / 8;
  Writeln('Среднемесячна зарплата рабочего');
  writeln('при 25.4 днях работы за месяц');
  writeln('составит: ', smz : 2:2, ' у. ед.');
  readkey; {* Ждем нажатия пользователя *}
End.