Bergervei/Ein- und Ausgabe

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="4d2e8595ee312">
var eingegeben:real;

function eingabe: real;
 begin
  result:=strtofloat(inputDialog('Deine Zahl:'));
 end;
</code>

<run id="4d2e8595ee39a">
eingegeben := eingabe();
writeln(floattostr(eingegeben)); // die Umwandlung ist nicht zwingend nötig
showMessage('Deine Zahl war: '+eingegeben); 
</run>