additionsprogramm funzt net

[PomBär]

hallo leute
ich wollte ein additionsprogramm schreiben und habe folgendes eingetippt:

Delphi-Quellcode:

var a,b,gesamt:integer;
begin
  writeln('gib zwei ganze zahlen ein');
  read(a,b);
  gesamt:=a+b;
  writeln('und wie ist das ergebnis?');
  writeln('das ergebnis von' ,a,'+' ,b, '=' ,gesamt);
  writeln('schluss jetzt');
end.

mein problem ist, dass er zwar compiliert aber kein ergebnis ausgibt. er fragt die beiden eingaben ab und läuft dann ohne irgendeine ausgabe durch. erst wenn ich einen anhanltepunkt bei
writeln('schluss jetzt');
mache arbeitet er

Delphi-Quellcode:

writeln('das ergebnis von' ,a,'+' ,b, '=' ,gesamt);

ab.
könnt ihr mir bitte helfen?
:stupid:

[Pseudemys Nelsoni]

das read(a,b) dürfte falsch sein

[PomBär]

nee eigendlich nicht
habs aus nem buch
außerdem nimmt er ja die wärte nur die ausgabe funzt net

[PomBär]

wie meinst du das denn genau? wie soll ich denn sonst die werte einlesen?

[70UR157]

lol, wie wärs mit "readln()" ? :)

[PomBär]

ich habs mal probiert aber irgendwie funzt das net. das programm läuft einfach noch durch ohne den satz mit dem ergebnis anzuzeigen.

Delphi-Quellcode:

var a,b,gesamt:integer;
begin
  writeln('gib zwei zahlen ein!');
  readln(a,b); gesamt:=a+b;
  writeln('das ergbnis von' ,a, 'und' ,b, 'ist' ,gesamt),
end.

könnt ihr mir bitte sagen was bei mir fehlt?
:wall:

[sakura]

Das Programm zeigt es wohl an, aber das Fenster wird geschlossen, bevor Du es siehst ;-)

Code:

var a,b,gesamt:integer;
begin
  writeln('gib zwei zahlen ein!');
  readln(a,b); gesamt:=a+b;
  writeln('das ergbnis von' ,a, 'und' ,b, 'ist' ,gesamt),
  [color=#ff0000]ReadLn;[/color]
end.

...:cat:...