Решите в паскале ABC.

Известно время полета вылета самолета - HH часов и ММ

минут, а также продолжительность полета (НР часов и МР минут). Напечатать время

прибытия самолета в аэропорт назначения в виде: самолет прибывает в

12.35. Учесть возможность перехода часов (после 23.59 наступает 00.00).

Program time;

uses crt;

var

HH, MM, HP, MP, HR, MR, ost:integer;

begin

write ('Vvedite vremya otvravki : ') ;

read (HH) ;

read (MM) ;

writeln;

write ('vvedite prodolgitelnost poleta: ') ;

read (hp) ;

read (mp) ;

clrscr;

writeln ('Otpravleniye somolyata v ', hh,':', mm) ;

MR:=mm+mp;

if mr>59 then

begin

ost:=mr mod 60;

MR:=ost;

HR:=HR + (MR div 60) ;

end;

HR:=HH+HP;

if hr>24 then hr:=hr - 24;

Writeln;

Write ('Pributie samolyota v ', HR,':', MR) ;

writeln;

end.

данный можно сразу вводить через пробел ...

например 12 10 жмем ентер и вводим другие 14 55 и ентер и все прекрасно посчитает. тут опечатка ... не совсем правильно считает ... подожди исправлю