while
μπορούμε να εκτελέσουμε εντολές
κατ' επανάληψη ανάλογα με μια συνθήκη τύπου boolean.
while
έχει την παρακάτω μορφή:
while συνθήκη do εντολή
program PrintSquares; {Εκτυπώνει τα τετράγωνα από το 1..10} var i: integer; begin i := 1; while i <= 10 do begin writeln(i, sqr(i)); i := i + 1 end end.