Скласти програму яка за вединим числом користувача яке означає кількість хвилин визначає скільки пройшло годин і діб

Var m,d,h:integer; 
begin
write('m = ');
readln(m);
d:=m div (24*60);
h:=(m-d*24*60) div 60;
writeln('day(s) = ',d,' hour(s) = ',h);
end.

Пример:
m = 3540
day(s) = 2 hour(s) = 11