var zahl: integer; function eingabe: integer; var korrekt, ziffer: boolean; zk : string; i,j: integer; begin zk:=inputdialog('Deine Zahl:'); korrekt:=strtoint(zk)>=0; for i:=1 to length(zk) do begin ziffer:=false; for j:=48 to 57 do ziffer:=ziffer or (zk[i]=chr(j)); korrekt:=korrekt and ziffer; end; if korrekt then showmessage('Deine Zahl war: '+zk) else showmessage('Fehlerhafte Eingabe: '+zk); result:=strtoint(zk); end;
zahl:=eingabe(); writeln(zahl);
ausführen