рабочий А собирает n пар обуви за 1 час, рабочий B

Var
  n,l,k,t:integer;
begin
  Write('Количества пар обуви, собираемые за час: ');
  Read(n,k,l);
  Write('Количество часов: ');
  Read(t);
  Writeln('Будет собрано обуви: ',t*(n+k+l))
end.

Контрольное решение
Количества пар обуви, собираемые за час: 12 9 11
Количество часов: 4
Будет собрано обуви: 128