while A[x] while A[y]>m do y:=y-1; - эта строка - у тебя тут идет пока какой-то элемент выполнять цикл пока. И видимо на нем цикл крутится и не заканчивается вот тебе и ошибка
Первый блок- ввод, в него вводятся значения a, b, c из уравнения 
. Второй блок- поиск дискриминанта. Третий блок- проверка дискриминанта на то, Меньше ли он нуля. Если менше, то работа завершается, а если нет, то ведет подсчет корней и выводит их.
Var
a,flag,i:integer;
Begin
Readln(a);
flag:=0;
for i:=2 to a do begin
if i<>a then if a mod i=0 then
begin flag:=1; break; end; end;
if flag=1 then Writeln('NO')
else Writeln('YES')
<span>End.</span>
Древние рукописи,книги,журналы,газеты.
