program ido_iratas;
uses dos,crt;
var o,p,mp,szmp,id,rmp:word;
begin
     clrscr;
     getdate(o,p,mp,szmp);
     writeln(o,'. ev ', p, '. ho ', mp, '. napja van');
     while id<=5 do
     begin
     gettime(o,p,mp,szmp);
     if rmp<>mp then
        begin
         gotoxy(1,2);
         writeln(o,' ora ', p, ' perc ', mp, ' masodperc');
         id:=id+1;
         rmp:=mp;
        end;
     end;
end.