Ошибка в паскале помогите!

Question

Андрій Сувала Ученик (235), закрыт 9 лет назад

p:=a;
N1:
if p<=b then
begin
if (p mod i=0) and (p<>i) and (i<>1) then
begin
Inc(p);
else
writeln(p);
Inc(p);
end;
goto N1;
end;

Дополнен 9 лет назад

ошибка в перед else, ожидался оператор

Дополнен 9 лет назад

когда убераю ";" то пишет что ожидалось ";"

Answer 1

Надо так: if - begin - .- end - else - begin - .- end
А сейчас вот такая каша: if - begin - .- else - .- end

Answer 2

Irreproducible Мудрец (11509) 9 лет назад

знак ; перед else уберите

Answer 3

пропущен оператор "end;". вставьте его перед else или удалите оператор "begin" после инструкции "if"

Answer 4

1. Предусмотреть выход из бесконечного цикла.
2. Правильно так:
begin
if (p mod i<>0) or (p=i) or (i=1) then
writeln(p);
Inc(p);