Рассчитайте количество часов, которое вы тратите на выполнение домашнего задания в день, если среднее количество предметов в день и среднее время (в минутах), затрачиваемое на подготовку к каждому предмету, запрашивается у пользователя вашей программы

Var a, i: byte;

b, c: word;

begin

write ('Введите среднее количество предметов в день: ') ;

readln (a) ;

c : = 0;

for i : = 1 to a do begin

write ('Сколько минут в среднем вы тратите на подготовку к предмету: ') ;

readln (b) ;

c : = c + b

end;

write ('Количество часов, которое вы тратите на выполнение домашнего задания в день: ', (c / 60)) ;

end.