Вопрос сколько раз будет выполняться тело цикла в фрагменте программы

[1qazse4]

i:=5;
while i<0 do
begin
A:=sin(i*Pi/6);
i:=i+1;
end;