Простая арифметика

uses crt;
var
m, speed :integer;
day, rab_day, s:real;
const
students = 25;
day_rab = 8;
begin
write('Введите сторону поля: ' ) ;
readln(m);
write('Введите скорость работы студента(кол-во м2 в час): ' ) ;
readln(speed);
rab_day := students * day_rab;
s := m * m;
day :=s / rab_day;
writeln('Площадь поля: ', s,' м2.' ) ;
Writeln('Работу которую выполняют студенты в день: ', rab_day,' м2' ) ;
Writeln('Формула счета: ',s,' * ',rab_day,' = ',day) ;

writeln('Кол-во дней для выполнения работы: ',floor(day));

end.