{ (c) 1998 CREEQ <creeq@web.de> }
program datum_und_zeit_holen;
uses Crt, Dos;
type datum_typ = record tag, monat, jahr, wochentag : word;
 		 end;
     zeit_typ  = record stunde, minute, sekunde, sek100 : word;
                 end;
var datum : datum_typ;
    zeit, zeit1, zeit2 : zeit_typ;
    i                  : longint;
procedure uhrzeit(var z : zeit_typ);
begin
  with z do
  gettime(stunde, minute, sekunde, sek100);
end;
procedure uhrzeit_ausgeben(z : zeit_typ);
begin
  with z do
  begin
    write(stunde:2,':',minute:2,':');
    writeln(sekunde:2,'.',sek100);
  end;
end;
function zeitdifferenz(var z2, z1 : zeit_typ) : real;
var sek2, sek1, msek2, msek1 : real;
begin
  sek2 := z2.stunde*3600.0 + 60*z2.minute +
          z2.sekunde + z2.sek100/100;
  sek1 := z1.stunde*3600.0 + 60*z1.minute +
          z1.sekunde + z1.sek100/100;
  zeitdifferenz := sek2 - sek1;
end;
begin
  with datum do
  getdate(jahr, monat, tag, wochentag);
  with datum do
  begin
    repeat
      clrscr;
      writeln;
      writeln;
      writeln;
      writeln;
      writeln;
      writeln;
      writeln;
      writeln;
      write('                              ');
      uhrzeit(zeit1);
      uhrzeit_ausgeben(zeit1);
      write('                          ');
      case wochentag of
        0: write('Sonntag ');
        1: write('Montag ');
        2: write('Dienstag ');
        3: write('Mittwoch ');
        4: write('Donnerstag ');
        5: write('Freitag ');
        6: write('Samstag '); end;
  writeln(tag:2,'.',monat:3,'.',jahr:5);
  delay(100);
  until keypressed;
  end;
end.