Пассажир поезда провел в пути а часов.сколько полных суток провел в поезде пассажир? сколько минут?

Var a,min:integer;
     sut:real;
begin
     readln(a);
     sut:=Int(a/24);
     min:=a*60;
     writeln('Полных суток:',sut,'; минут',min);
end.