СрочноПАСАКЛЬ ABC срочноРассчитайте и выведите ** экран количество рабочих часов в...

Question

Срочно
ПАСАКЛЬ ABC срочноРассчитайте
и выведите на экран количество рабочих часов в месяце, если
продолжительность рабочего дня равна 8 часам в день, а число рабочих дней
в месяце запрашивается у пользователя вашей программы.

Answer 1

Var
  days : Integer;
begin
  Write('Введите кол-во рабочих дней в месяце: ');
  Readln(days);

  Writeln('Рабочих часов: ', days * 8);
end.