Нужно написать ПОЛНУЮ программу от program до end. Четырем классам необходимо убрать поле площадью F га. Сколько га надо убрать каждому классу, если количество человек в классах различно.

Var p1,p2,p3,p4:integer;

f,s: real;

Begin

  write('Введите площадь в Га:');

  read(f); //f--сколько всего Гектар

  write('Количество учеников в 1 классе ');

  read(p1); //p1--учеников в 1 классе

  write('Количество учеников в 2 классе ');

  read(p2); //p2--учеников в 1 классе

  write('Количество учеников в 3 классе ');

  read(p3); //p--3учеников в 1 классе

  write('Количество учеников в 4 классе ');

  read(p4); //p4--учеников в 1 классе

  s := f / (p1 + p2 + p3 + p4); //s для 1 человека

  writeln('Для 1 класса ', s * p1 : 2:1, ' га.');

  writeln('Для 2 класса ', s * p2 : 2:1, ' га.');

  writeln('Для 3 класса ', s * p3 : 2:1, ' га.');

  writeln('Для 4 класса ', s * p4 : 2:1, ' га.');

End.

Объяснение: ну как так можно быть таким глупым ОДНОКЛАССНИКАМ АНТОН