Node:repeat, Next:Reset, Previous:Rename, Up:Reference
repeat statement; ... statement; until boolean_expression;
The repeat ... until statement declares a loop. For
further description see repeat Statement.
repeat is defined in ISO 7185 Pascal and supported
by all known Pascal variants.
program RepeatDemo;
var
Number, Sum: Integer;
begin
WriteLn ('Black Jack for beginners.');
WriteLn ('You can choose your cards yourself. :-)');
Sum := 0;
repeat
Write ('Your card (number)? ');
ReadLn (Number);
Inc (Sum, Number);
WriteLn ('You have ', Sum, '.')
until Sum >= 21;
if Sum = 21 then
WriteLn ('You win!')
else
WriteLn ('You lose.')
end.