if schleife in einer konsohle

[Klaus01]

Zitat von justloosit:

Delphi-Quellcode:

var a, b, c:integer;
strvar : String;
begin
  writeln('Hallo dieses Programm berechnet ihnen die Summe, die Subtraktion, das Produkt');
  writeln(', sowie die Division aus zwei Zahlen!');
  writeln('Nun gib bitte deine erste Zahl ein.');
  readln(a);
  writeln('Deine erste Zahl ist also '+IntToStr(a)+' gib nun bitte deine zweite Zahl an!');
  readln(b);
  writeln('Deine Zahlen sind also '+IntToStr(a)+' und '+IntToStr(b)+' möchtest du fortfahren?');
  readln(strvar);
  if strvar 'Yes' then
    writeln('Deine beiden Zahlen sind also '+IntToStr(a)+' und '+IntToStr(b));
  writeln('die Summe der beiden Zahlen ist: '+IntToStr(a+b));
  readln;
end.

Typenkonvertierung beachten.
readln(a) liest ein Integer ein - ausgeben kannst Du nur Strings

Grüße
Klaus