Pascal-ban lehet ilyet?

[link]

Itt van az exe !

uses dos;

var

h, m, s, hund : word;

hh, mm, ss, hund1 : word;

mmm, tt, ttt, szam: longint;

Function LeadingZero(w : Word) : String;

var

s : String;

begin

Str(w:0,s);

if Length(s) = 1 then

s := '0' + s;

LeadingZero := s;

end;

begin

szam:=0;

GetTime(h,m,s,hund);

mmm:=m;

tt:=hund+(s*100)+(mmm*60*100);

repeat

Inc(szam);

Writeln(szam,' Az Atombomba nem j t‚k');

GetTime(hh,mm,ss,hund1);

mmm:=mm;

ttt:=hund1+(ss*100)+(mmm*60*100);

until ttt>tt+6000;

WriteLn('Kezd:',LeadingZero(h),':',

LeadingZero(m),':',LeadingZero(s),

'.',LeadingZero(hund));

WriteLn('V‚g :',LeadingZero(hh),':',

LeadingZero(mm),':',LeadingZero(ss),

'.',LeadingZero(hund1));

end.