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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.