Var
t, n: real;
begin
Write('Введите время работы в часах: ');
Readln(t);
n := Int(t * 60 / 7) * 3; { каждая машина сделает целое количество тарелок }
Writeln('Будет сделано тарелок- ', n)
end.
Тестовое решение:
Введите время работы в часах: 3.5
Будет сделано тарелок- 90