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="4d2e3e65d1f86">
writeln(floattostr(eingabe));
messagedialog('Ergebnis');
</run>