Instructiunea While

Instrucţiunea WHILE este ciclul cu test iniţial care conţine o expresie booleană care controlează execuţia repetată a altei instrucţiuni.



PROGRAM P3;
 var n: integer;
 begin
 n := 1;
 While n <= 20 Do
 Begin
 Writeln(n);
 n := n + 1;
 End;
 Readln;
 end.