Keskustelu: Koodit: Pascal: Sekuntikello pascalilla

program kello;

uses Crt;

var
   sekunnit, minuutit, tunnit : Integer;
begin
   tunnit = 0;
   while tunnit <= 24 do
      begin
         minuutit := 0;
         while minuutit <= 59 do
            begin
               sekunnit := 0;
               while sekunnit <= 59 do
                  begin
                     GotoXY(20, 20);
                     Write(tunnit,':',minuutit,':',sekunnit);
                     sekunnit := sekunnit + 1
                  end;
               minuutit := minuutit + 1
            end;
         tunnit := tunnit + 1
      end
end.