Bergervei/Ein- und Ausgabe

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="4d2e41e750864">
function eingabe: real;
 begin
  result:=strtofloat(inputDialog('Deine Zahl:'));
 end;
</code>

<run id="4d2e420c71c26">
writeln(floattostr(eingabe));
</run>