Производительность формовочной машины - 7 тарелок в одну минуту. сколько тарелок выпустят 3 машины, работая t ч.напечать результат вычисления. написать программу ! заранее )

Var
  t, n: real;

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

Тестовое решение:

Введите время работы в часах: 3.5
Будет сделано тарелок- 90