Сколько раз выполнится тело цикла:
a:=10;
while a>=0 do
begin
a:=a-2;
end;

• 6
• 10
• 5