Производительность одного рабочего на сборке мебели составляет 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.