выполнить условие

[Alex11223]

proiz ili ne prpoizv (Y/N)

Cохранить или выйти?(Да/Нет?)

И настоятельно рекомендую сделать что-то с форматированием кода. Может тогда и ошибку будет проще найти. По-моему у вас кол-во begin не совпадает с кол-вом end.

[Артл]

совпадает кол-во end и begin
вот с этим проблема , когда вводишь Y все норм , корень выводит а если нет то процесс не завершается и корень не выводится

If n = 5 Then Begin
Writeln('Áûëî ïðîèçâåäåíî 5 èòåðàöèé, ïðåðâàòü âûïîëíåíèå? (Y/N): ');
Readln(Q);
If Q = 'Y' Then Break
End;
until abs(fc)<e;

[Valio]

вот с этим проблема , когда вводишь Y все норм , корень выводит а если нет то процесс не завершается и корень не выводится

Дело не в этом куске что я дал, а в том что цикл repeat никогда не завершается.
Смотри косяк в своём алгоритме. Программа судя по всему просто "зацикливается".