Команда циклу з передумовою (while) має вигляд
While<логічний вираз>do<команда 1>;
Дія команди. Доки значення логічного виразу істинне, виконується команда 1. Істинний логічний вираз описує умову продовження процесу виконання команди циклу.
Приклад: Нехай змінні х, мають значення 
, 
. Після виконання команди
Whilex<=8 do begins:+x; x:=x+1 end;
Вони набувають значень s=4+5+6+7+8=30, х=9.
Приклад. Вивести таблицю чисел від 20 до 30, їхні квадрати та куби за допомогою команди whileможна так:
і:=20;
while і<=30 do
Begin
writeln(i:4,i*i:6, i*i*i:8);
і := і + 1
end;
Приклад. Визначити дійсне додатне число а, для якоговиконується співвідношення а/2=0 в комп’ютерній арифметиці дійсних чисел. Таке число характеризує нижню додатну межу типу данихreal.
рrogramMinRlNum;
uses Crt;
vara : real;
Begin
clrscr;
a :=1;
whilea/2>0 doa := a/2;
writeln(,a = , , а); (Відповідь: а=2.9Е-39)
readln;
End.
Приклад: Протабулювати функцію 
на проміжку [0,3,1, з кроком 
і обчислити середнє арифметичне (s1) значень функції більших, ніж 0,1 менших, ніж 0,6.
program FlndSerednie;
usesCrt;
varx,y,s,sl,h,xk:real; n :integer;
Begin
clrscr;
x :=0; xk :=3.1; h :=0.1;
s :=0;n:=0;
whilex<=xk+h/2do
Begin
y :=sin(x);
writeln(x:3:1,y:6:2);
if(y>0.1) and(y<0.6) then
begins :=s+y; n := n+1 end;
x :=x+h;
end;
ifn>0 then
begin sl :s/n; writeln ('Середнє = ', s1)end
elsewriteln('Таких значень немає n=0');
readln
End.
