{* Задача 560 *}

Unit ZADACH560;
Interface
Implementation
Begin
 writeln('Четырем классам поручено убрать поле площадью F га. Известно количество учеников в каждом классе. Сколько га надо убрать каждому классу?');
End.

Program zadach560;

Uses zadach560.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  p1 : integer;
  p2 : integer;
  p3 : integer;
  p4 : integer;
  f  : real;
  s  : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Введите площадь в га.-');
  read(f);
  write('Количество учеников в 1 классе ');
  read(p1);
  write('Количество учеников в 2 классе ');
  read(p2);
  write('Количество учеников в 3 классе ');
  read(p3);
  write('Количество учеников в 4 классе ');
  read(p4);
  s := f / (p1 + p2 + p3 + p4);
  writeln('Для 1 класса  ', s * p1 : 2:1, ' га.');
  writeln('Для 2 класса  ', s * p2 : 2:1, ' га.');
  writeln('Для 3 класса  ', s * p3 : 2:1, ' га.');
  writeln('Для 4 класса  ', s * p4 : 2:1, ' га.');
  readkey; {* Ждем нажатия любой клавиши *}
End.