program new;
uses crt;
var sak, bei, sst, smin, bst, bmin, rezmin :Real;
    s, b, rez, rezh, min :Integer;

procedure ja_vairak (stundas, minutes :Real);
begin
    if minutes >= 60 then
        begin
            stundas:=stundas+1;
            minutes:=minutes-60;
        end;
end;

begin
    clrscr;
    write('Sakums (hh.mm): ');
    readln(sak);
    write('Beigas (hh.mm): ');
    readln(bei);
    sst:=trunc(sak);
    smin:=round((sak - sst)*100);
    ja_vairak(sst, smin);
    bst:=trunc(bei);
    bmin:=round((bei - bst)*100);
    ja_vairak(bst,bmin);
    writeln;
    s:=trunc(sst*60+smin);
    b:=trunc(bst*60+bmin);
    rez:=b-s;
    rezmin:=rez / 60;
    rezh:=trunc(rezmin);
    min:=rez-(rezh*60);
    writeln ('Ilgums: ',rezh,' stundas un ',min,' minutes');
    readln;
end.