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.
Объяснение: ну как так можно быть таким глупым ОДНОКЛАССНИКАМ АНТОН
Флеш память , мобильный телефон, жёсткий диск
Объяснение: