Почему выдает ошибку «Встречено 'else', а ожидалось ';'»?

Question

[Виктор Помокаев]

program BegemotKashelot;
var x, y: integer;
begin
writeln('Введите x =');
read(x);
if x < -1 then
begin
y:= 2-sqr(x);
writeln('y=',y)
end
else
begin
if (x>=-1) and (x<=2) then
y:= 2*x;
writeln('y=',y);
end
else
if x>2 then
begin
y:= 2-x;
writeln('y=',y);
end

end.

Program1.pas(17) : Встречено 'else', а ожидалось ';'

Answer 1

[Hemul GM]

Потому что нельзя писать

if

else

else

Можно только один else использовать.
Что значит "Если 1 то ..., в противном случае ..., в противном случае ...? В каком ещё случае?

if ...
begin

end
else
  if ...
  begin
  
  end
  else
    if ...
    begin
    
    end;

Comments

[Виктор Помокаев]

Я извиняюсь за мой непрофессионализм. Просто паскаль не знаю от слова совсем, а задачу надо решить. не подскажите как сделать?

[scottparker]

вроде бы так, begin и end не хватает, хотел выделить жирным то, что добавил, но в теге code этого делать нельзя
program BegemotKashelot;

var x, y: integer;
  begin
  writeln('Введите x =');
  read(x);
  if x < -1 then
    begin
    y:= 2-sqr(x);
    writeln('y=',y)
    end
  else
    begin
    if (x>=-1) and (x<=2) then
      begin
      y:= 2*x;
      writeln('y=',y);
      end
    else
      begin
      if x>2 then
        begin
        y:= 2-x;
        writeln('y=',y);
        end
      end
    end
  end.