Formátum
While logikai_kifejezés do {ciklusmag ismétlése, amíg a logikai_kifejezés IGAZ};
Példa
a := 2; while a < 6 do begin writeln (a); a := a + 1 end;
while true do ;
a := 2; while a < 6 do writeln (a); {az a ciklusváltozó nem növekszik!}
var i:integer; begin i := 0; while true do begin i := i + 1; if i = 10 then break; end; end;
var i:integer; begin i := 0; while true do begin i := i + 1; if i = 10 then continue; end; end;