Вопрос Найдите ошибку в программе паскаль. Она зацикливается

[Desiree]

Не пойму то не так в программе, вроде бы все правильно написал, но она ничего не выводит
//otvet.imgsmail.ru/download/212189465_3fa47c170c07cd3397c43fc59afee5b0_800.jpg

 

[flet111]

Задание что-ли напиши. Сейчас программа, в зависимости от введенного значения, имеет два возможных пути исполнения 1. Ничего не делает. 2. Молча зацикливается.

 

[fdfd]

while a<x но a или x никак в цикле не меняются, потому зацикливается