Помогите найти ошибку в программе(она в комментариях)

Question

Помогите найти ошибку в программе(она в комментариях)

Comments

Var x,y,n:integer; begin write('Введите х при 0<=x<=15,x='); read(x); while (0<=x)and(x<=15) do begin y:=sqr(x)+x+17; readln(y); end; n:=1; repeat n:=n+1 until y mod n = 0; if n<y then writeln('сост') else writeln('прост') end.

---

Неужели трудно попробовать скомпилировать программу, и посмотреть ошибку?..

---

Ошибку не выдает в окне вывода

---

Вижу... Другие ошибки никто, кроме Вас, не найдёт. Вы ж не написали, что должна делать программа...

---

Рад узнать что ктото ещё программирует га паскаль!

---

У Вас программа либо никогда не войдёт в цикл, либо не выйдет из него... Чего Вы хотели добиться?

Answer 1

Var x,y,d,k:integer;
Begin
For x:= 0 to 15 do
    Begin
    y:=x*x+x+17;
    Write('f(',x,') = ',y);
    k:=0;
    d:=y div 2;
    While d > 1 do
       Begin
       if y mod d = 0 then k:=k+1;
       d:=d-1
       End;
    if k = 0 then WriteLn(' - простое')
    else WriteLn(' - составное')
    End;
End.

Comments

У вас нехватает ; в строках: 12, 15

---

Перед любым "end" ставить точку с запятой не обязательно.

---

Скачайте уже себе компилятор Паскаля - сможете, хотя бы, проверять программы...

---

Ну уж извини, но компилятор пишет, что нехватает ;

---

Смешно=)))