Vladimir_S

1. Нахрена, извините, Вы туда втюхали Uses CRT? Где там команды этого модуля?
2. В моей программе обрабатывалось любое положительное значение Х. Например, 39765. Циклически вычиталось 4 до тех пор, пока Х не попадет в диапазон от нуля до четырех. Вы цикл вычитания периода выбросили, заменив однократным вычитанием четверки. То есть в моем примере Вам придется работать с числом 39761. И что Вы с ним собираетесь делать?
3. Допустим, Х=0.6. Проверяем первое условие (в Вашей программе - перед пустой строкой). Раз X<1, то Y есть корень из (1-0.16), то есть 0.92. Идем дальше. Второе условие гласит: если Х находится в диапазоне от 1 до 3, то считать по одной формуле, в противном случае - по другой. Вот по этой другой и пересчитаем: Y есть единица минус корень из (-4.76). Попытка извлечь корень из отрицательного числа и (вот те раз!) - ошибка! У меня-то все три условия были связаны ветвлением "else", но Вы, очевидно, решили, что два "else" - это слишком много, хватит и одного. Ну-ну... Эх, "раззудись плечо, размахнись рука!". Рубить программу, так от души.

Короче говоря, так. Я Вам представил отлаженную рабочую программу, полностью решающую поставленную задачу, причем посредством самых элементарных конструкций Паскаля. Помогать Вам ее незнамо зачем уродовать я, извините, не стану. Охота этой ерундой заниматься - Ваше дело. Успехов!

vitjok

можете справить ошибку в программе??

Vladimir_S

Я всё сказал на эту тему постом выше. Точка.