Рассчитайте количество часов, которое вы тратите на выполнение семейного задания в

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.