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.