Задано время в часа и минутах. Через сколько минут часовая и минутная стрелки будут образовывать угол в 90 градусов?

program E1;
var a,b,c:byte;
begin
write('vvedute 4as');
readln(a);
write('vvedute munytu');
readln(b);
If 
a:=(b-15)/5 then begin 
write('90 gradysov');
end
else
c:=(b-15) mod 5;
write(c);
end.

program E1;
var a,b,c,d:byte;
begin
writeln('vvedute 4as');
readln(a);
d:=5*a;
writeln('vvedute munytu');
readln(b);
If 
b-d=15 or d-b=15 then begin 
writeln('90 gradysov');
end
else
if b>d then begin c:=b-15-d ;
end
else c:=d-b-15;
  
write(c);
end.

program E1;
var a,b,d:integer;
begin
writeln('vvedute 4as');
readln(a);
until
d:=5*a;
writeln('vvedute munytu');
readln(b);
abs(b-d-15);
write('Do 90 gradesov ', abs(b-d-15), ' munyt');
end.

uses math;
var
    h, m, t, al, be, angl, buf :longint;
begin
    readln(h, m);
    t := (h * 60 + m) mod 720;
 
    while (true) do begin
    
        al := (t mod 60) * 6;
        be := (t div 60) * 30 + (t mod 60) div 5 * 6;
        if (al > be) then begin
            buf := al;
            al := be;
            be := buf;
        end;
 
        angl := min(360 - be + al, be - al);
        if (angl = 90) then begin
            writeln(t - ((h * 60 + m) mod 720));
            break;
        end;
        t := (t + 1) mod 720;
    
    end;
end.