if schleife in einer konsohle

[Teekeks]

ok. Dann doch repeat:

Delphi-Quellcode:

var a, b, c:integer;
strvar:string;
begin
readln(strvar);
repeat
writeln('Hallo dieses Programm berechnet ihnen die Summe, die Differnz, das Produkt');
writeln(', sowie den Quotienten aus zwei Zahlen!');
writeln('Nun gib bitte deine erste Zahl ein.');
readln(a);
writeln('Deine erste Zahl ist also ',a,' gib nun bitte deine zweite Zahl an!');
readln(b);
writeln('Deine Zahlen sind also ',a,' und ',b,' möchtest du fortfahren?');
readln(strvar);
until strvar = 'Yes';
writeln('Deine beiden Zahlen sind also ',a,' und ',b,'');
writeln('die Summe der beiden Zahlen ist ',a+b,'');
writeln('Die Differenz der beiden Zahlen ist ',a-b,'');
writeln('Das Produkt der beiden Zahlen ist ',a*b,'');
writeln('Die Quotient aus den beiden Zahlen ist ',a/b,'');
readln;
end.

Edit: Ich stimme Klaus01 voll und ganz zu...