program reakcio_ido;
uses dos,crt;
var o1,o2,o3,o4,p3,p4,ido:word;
begin
     clrscr;
     Writeln('Nyomj le egy billentyut, majd meg egyet!');
     readkey;
     gettime(o1,o2,o3,o4);
     readkey;
     gettime(o1,o2,p3,p4);
     if p3>=o3 then ido:=(p3*100+p4)-(o3*100+o4)
               else ido:=(p3*100+6000+p4)-(o3*100+o4);
     write('Az eltelt ido: ', ido,' szazadmasodperc');
     readkey;
end.