Производительность 1-го рабочего на сборке мебели сочиняет N столов в час.Бригада

Программа подсчитывает только на сто процентов собранные столы. Дробная часть количества столов отсекается функцией trunc().

program table;
var n,t: real;
m: integer;
begin
write(Количество столов,собираемых одним рабочим за час: );
readln(n);
write(Количество рабочих в бригаде: );
readln(m);
write(Время работы бригады в часах: );
readln(t);
writeln(За указанное время бригада соберет столов: , trunc(t*m*n), шт. )
end.