Пример программы на языке Паскаль с использованием оператора while:

program Example;
var
i: Integer;
begin
i := 1;
while i <= 10 do
begin
writeln('Number: ', i);
i := i + 1;
end;
end.

Эта программа выводит числа от 1 до 10 с помощью оператора while. Значение переменной i увеличивается на 1 с каждой итерацией цикла while.