Дано n-число дней с начала месяца. написать программу подсчета количества часов (has), минут(min) и секунд(sec) от начала месяца. входные данные n=5 выходные данные 120 7200 432000

Program n_1;
var has,min,sec,days:integer;
begin
days:=5;
Println('Число дней с начала месяца: ',days);
has:=days*24;
min:=has*60;
sec:=min*60;
Println('С начала месяца Дней, '+has+' Часов '+min+' Минут '+sec+' Секунд');
  end.