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.