Program m;

{ Demonstriert Forward-Deklarationen }

Var i:integer;

Function Ung(n:integer):boolean;
  forward;

Function Ger(n:integer):boolean;
  Begin
    if n=0 then ger:=true
    else ger:=ung(n-1)
  End;

Function Ung;
  Begin
    ung:=not ger(abs(n))
  End;

Begin
  write('Bitte ganze Zahl eingeben: ');
  readln(i);
  If ger(i) then writeln('Gerade.') else writeln('Ungerade.')
end.