Ein- und Ausgabe

Aus ProgrammingWiki

Archivierte Version vom 2011-01-13T00:05:59+00:00. Aktuelle Version

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

writeln(floattostr(eingabe));
messagedialog('Ergebnis');