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

uses crt;

var f,a,b,c,d,s:real;

begin

write('Ââåäèòå ïëîùàäü äëÿ óáîðêè(ãà): ');

read(f);

writeln;

write('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ 1-îãî êëàññà: ');

read(a);

write('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ 2-îãî êëàññà: ');

read(b);

write('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ 3-åãî êëàññà: ');

read(c);

write('Ââåäèòå êîëè÷åñòâî ó÷åíèêîâ 4-îãî êëàññà: ');

read(d);

s:=a+b+c+d;

writeln;

writeln('1-îìó êëàññó íóæíî óáðàòü ',a*f/s:4:2,' ãà');

writeln('2-îìó êëàññó íóæíî óáðàòü ',b*f/s:4:2,' ãà');

writeln('3-tìó êëàññó íóæíî óáðàòü ',c*f/s:4:2,' ãà');

write('4-îìó êëàññó íóæíî óáðàòü ',d*f/s:4:2,' ãà');

end.