unit stopper;

interface
uses crt,dos;
procedure indit(var ido:real);
procedure allit(var ido2:real);

implementation
  var ido,ido2,eltelt:real;
  procedure indit(var ido:real);
  var ora,perc,mp,s:word;
  begin
     gettime(ora,perc,mp,s);  {ora,perc,mp,szazadmp:word}
     ido:=((ora*60+perc)*60+mp)*100+s;
  end;

  procedure allit(var ido2:real);
  var ora,perc,mp,s:word;
  begin
     gettime(ora,perc,mp,s);  {ora,perc,mp,szazadmp:word}
     ido2:=((ora*60+perc)*60+mp)*100+s;
  end;

begin
     {writeln('Rossz verzio eltelt ido: ',eltelt:5:2,' szazadmasodperc');
     writeln('Jo verzio eltelt ido: ',eltelt:5:2,' szazadmasodperc');
     readln;}
end.