procedure jahr1(a:string); var jahr:integer; begin if(a[3] = '0') and (a[4] = '0')then begin jahr:= strtoint(a); if (jahr mod 400) = 0 then writeln(jahr,' war/ist kein Schaltjahr.') else writeln(jahr,' war/ist ein Schaltjahr.'); end else begin jahr:=strtoint(a); if (jahr mod 4) = 0 then writeln(jahr,' war/ist ein Schaltjahr.') else writeln(Jahr,' war/ist kein Schaltjahr.'); end; end;
jahr1('2012');
ausführen
procedure jahr2(a:integer); var jahr3:string; begin jahr3:=inttostr(a); if(jahr3[3] = '0') and (jahr3[4] = '0')then begin if (a mod 400) = 0 then writeln(a,' war/ist kein Schaltjahr.') else writeln(a,' war/ist ein Schaltjahr.'); end else begin if (a mod 4) = 0 then writeln(a,' war/ist ein Schaltjahr.') else writeln(a,' war/ist kein Schaltjahr.'); end; end;
jahr2(2012);
