program Schaltjahr_func; {$APPTYPE CONSOLE} {13.12.2003 R.Weigel} {Dieses Programm beinhaltet die Function Schaltjahr Diese Function bestimmt von einer als Parameter übergebenen Jahreszahl, ob sie die Jahreszahl von einem Schaltjahr ist.} uses SysUtils; function Schaltjahr(Jahr:integer):boolean; begin Schaltjahr:= ((Jahr mod 4) = 0) and (((Jahr mod 100) <> 0) or ((Jahr mod 400) = 0)) end; {--- Beginn Hauptprogramm ---} var Jahr:integer; begin writeln('Dieses Programm bestimmt, ob ein '); writeln('eingegebenes Jahr ein Schaltjahr ist.'); writeln; write('Geben Sie bitte ein Jahr ein: '); readln(Jahr); if Schaltjahr(Jahr) then writeln('Das Jahr ',Jahr,' ist ein Schaltjahr') else writeln('Das Jahr ',Jahr,' ist kein Schaltjahr'); readln; end.