Миша получит подарки ровно в полночь и недавно узнал, что телепрограмма Новогодний огонек будет длиться X минут начиная с полуночи. Миша хочет узнать в котором часу он ляжет спать, если посмотрит всю программу - X минут, для этого необходимо указать время в формате часы, минуты. Помогите Мише определить необходимые данные.

Язык: pascal

Program Test;

Var

x: integer; chas: real; str1, str2: string;

Begin

Write ('Введите длительность телепрограммы (мин) : ') ;

Readln (X) ;

Writeln () ;

if (x < 60) then

begin

if (x < 10) then

Writeln ('Миша ляжет спать в 00:0', x)

else

Writeln ('Миша ляжет спать в 00:', x)

end

else

begin

chas : = x div 60;

x : = x mod 60;

if (chas > = 24) then

Writeln ('Сегодня Миша спать не ляжет')

else

begin

if (chas < 10) then

str1 : = '0' + chas

else

str1 : = '' + chas;

if (x < 10) then

str2 : = '0' + x

else

str2 : = '' + x;

Writeln ('Миша ляжет спать в ', str1, ':', str2) ;

end;

end;

End.