Problem mit Rechenprogramm

[Davidlocke13]

Morgen habe ein Problem mit folgendem Programm

Code:

program Ohmschenwiderstand;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  Spannung,Widerstand: real;

begin
  try
    { TODO -oEntwickler -cKonsole Main : Hier Code einfügen }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

  begin
      writeln ('Ohmschenwiderstand berechnen');
      writeln ('Geben Sie den Wert fuer die Spannung U ein');
      readln (Spannung);
      writeln ('Geben Sie den Wert fuer den Widerstand R ein');
      readln (Widerstand);
      writeln ('Die Stromstaerke I betraegt');
      writeln (Spannung/Widerstand);
      writeln('OHM');
      readln;
  end;
end.

Ich bekomme immer nur ein Ergebnis was so aussieht: 1.00000000000E+0000

Wo ist mein Fehler ?

LG David