PROGRAM Schaltjahr(INPUT,OUTPUT);¢¢(* Ein Jahr ist in der Regel ein Schalt- jahr, wenn es durch 4 teilbar ist. Ist die Jahreszahl aber durch 100 teilbar, so ist dieses Jahr nur dann ein Schaltjahr, wenn es auch durch 400 zu teilen ist. *)¢¢VAR Jahreszahl:INTEGER;¢ Schaltjahr:BOOLEAN;¢¢BEGIN¢¢ WRITELN('BITTE GEBEN SIE DIE JAHRESZAHL EIN !');¢ READLN(Jahreszahl);¢ ¢ 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;¢¢IF Schaltjahr ¢THEN WRITELN(Jahreszahl,' IST EIN SCHALTJAHR')¢ELSE WRITELN(Jahreszahl,' IST KEIN SCHALTJAHR')¢¢END.¢¢
