Программа для подсчета кол-ва часов, минут и секунд в данном числе суток в ABC Pascal Число суток ввести с клавиатуры​

program s;

var day, hour, minute, second: integer;

begin

read(day);

hour := day * 24;

minute := hour * 60;

second := minute * 60;

writeln ('Часов: ', hour, ', минут: ', minute, ', секунд: ', second);

end.