Четырем классам поручено убрать поле плщадю f га. известно кол-во учеников в каждом классе. сколько га нужно убрать каждому классу? решить в паскале

Var F: real;
     k: byte;
begin
  readln(F);
  readln(k);
  writeln(floattostr(F/k) + ' га');
end.