"Цаг минут секунд" бодлогын бодолт

bodolt

var t:array[1..12] of longint;
i,n,h,m,s:longint;
tt:longint;
begin
t[1]:=0;
t[2]:=trunc(3600*12/11+1);
t[3]:=trunc(3600*12*2/11+1);
t[4]:=trunc(3600*12*3/11+1);
t[5]:=trunc(3600*12*4/11+1);
t[6]:=trunc(3600*12*5/11+1);
t[7]:=trunc(3600*12*6/11+1);
t[8]:=trunc(3600*12*7/11+1);
t[9]:=trunc(3600*12*8/11+1);
t[10]:=trunc(3600*12*9/11+1);
t[11]:=trunc(3600*12*10/11+1);
t[12]:=trunc(3600*12);
readln(h,m,s);
tt:=3600*h+60*m+s;
for i:=1 to 12 do
if tt<=t[i] then
begin
writeln(t[i]-tt);
exit
end;
readln;
end.