Ошибка Syntax error, ";" expected but "ELSE" found

Pascal, Delphi, Lazarus Pascal
#1 
var
m: integer;
n: integer;
x: integer;
begin
m:= 4;
n:= 7;
x:= 0;
while true do
if m <> n then
    begin
        if m > n then
            begin
                m:= m - n;
                x:= x + 1;
            end
            else 
            begin
                n:= n - m;
                x:= x + 1;
            end;
            else writeln(x);
            
end.

Этот код выдаёт ошибку. Кто-то поможет?

#2

Перед else не нужен ;.

#3

Убрал “;”, но всё равно ошибка
end
else writeln(x);

#4

Два else подряд это что-то бессмысленное.
else срабатывает когда не сработало (получилось false) условие в if.

#5

перед else еще один end надо.

end; end
            else writeln(x);
#6

Капец, спасибо, помогло. Благодарю за ответ.

#7

пожалуйста. А проблема в том, что не хотите/забыли о контроле begin/end и форматировать код )

#8

А, да.
Форматировать код надо нормально, чтобы сразу видно было. :slight_smile:

Обычно современные редакторы кода делают это автоматически по мере написания и/или имеют кнопку переформатирования. Или например https://pak.lebah.web.id/jcf.cgi

  while true do
    if m <> n then
    begin
      if m > n then
      begin
        m := m - n;
        x := x + 1;
      end
      else
      begin
        n := n - m;
        x := x + 1;
      end;
    end
    else
      writeln(x);