Bergervei/Ein- und Ausgabe

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="4d321c438d9db">
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;
</code>

<run id="4d321c438da8e">
zahl:=eingabe();
writeln(zahl);
</run>