Instructiunea Repeat

Instrucţiunea REPEAT este un ciclu cu test final care indică repetarea unei secvenţe de instrucţiuni în funcţie de valoarea unei expresii booleene.

Instrucţiunea repeat are forma:                         

REPEAT
      secvenţă
  UNTIL condiţie;

Program p5;
 var n : integer;
begin
n := 1;
Repeat
Writeln('n');
 n:=n + 1;
Until n > 20;
Readln;

end.