PROGRAM Schaltjahr(INPUT,OUTPUT);¢¢VAR Jahreszahl:INTEGER;¢ Schaltjahr:BOOLEAN;¢¢PROCEDURE EINGABE_DER_JAHRESZAHL;¢ BEGIN¢ WRITELN('BITTE GEBEN SIE DIE JAHRESZAHL EIN !');¢ READLN(Jahreszahl);¢ END;¢¢PROCEDURE UEBERPRUEFUNG;¢ BEGIN ¢ IF Jahreszahl MOD 4<>0 ¢ THEN Schaltjahr:=FALSE¢ ELSE IF Jahreszahl MOD 100<>0¢ THEN Schaltjahr:=TRUE¢ ELSE IF Jahreszahl MOD 400<>0¢ THEN Schaltjahr:=FALSE¢ ELSE Schaltjahr:=TRUE;¢ END;¢¢PROCEDURE AUSGABE;¢ BEGIN¢ IF Schaltjahr ¢ THEN WRITELN(Jahreszahl,' IST EIN SCHALTJAHR')¢ ELSE WRITELN(Jahreszahl,' IST KEIN SCHALTJAHR')¢ END;¢¢BEGIN¢ EINGABE_DER_JAHRESZAHL;¢ UEBERPRUEFUNG;¢ AUSGABE¢END.¢¢
