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
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