informatyki i systemów mikroprocesorowych

program zegar_cyfrowy;

uses
  Crt,
  Dos;

var
  Godzina, Minuta, Sekunda, S100 : Word;
  OstatniaGodzina : Word;

function Uzup0 (N : Word) : String;

var
  StrPom : String;
begin
  Str (N : 2, StrPom);
  if StrPom[1] = ' ' then StrPom[1] := '0';
  Uzup0 := StrPom;
end;

begin
  ClrScr;
  OstatniaGodzina := 0;
  repeat
    GetTime (Godzina, Minuta, Sekunda, S100);
    GotoXY (37, 12);
    write (Uzup0(Godzina), ':' , Uzup0(Minuta), ':', Uzup0(Sekunda));
    if ((Minuta=0) and (Godzina <> OstatniaGodzina)) then
    begin
      OstatniaGodzina := Godzina;
      Sound (1000); Delay (200); NoSound;
    end;
    Delay (200);

end.