Modulo + Schleife

#1
Pascal:
program ungerade_gerade_Zahl;

uses crt;

var Zahl, Eingabe: integer;
 
Begin
  clrscr;
    Eingabe:= 1; 
    while Eingabe <> 0 do
      begin
        writeln (' Dieses Programm prüft die eingegebene Zahl auf gerade oder ungerade');
        writeln ('');
        writeln (' Geben Sie eine Zahl ein');
        writeln ('');
        Readln (Eingabe);
        Zahl:= Eingabe mod 2;
     
          if Zahl =1 then
          begin
            writeln (' Die Zahl ist ungerade');
          end
              else
                begin   
                    writeln ('Die Zahl ist gerade');
                end;
      end;   
         
readkey 
End.
Das Programm soll eine eingegebene Zahl auf gerade oder ungerade prüfen und den Vorgang sollange wiederholen bis Eingabe 0 erfolg!!
 
Oben