Сколько раз выполняется цикл? a: =4 b: =6 while a

Цикл не правильный. при компиляции выдаст ошибку должно быть условие(либо логическая переменная)
правильный синтаксис
 while a>0 do
beign

end;
это пример

ок, ответ после правки: 1 раз