пишет: Встречено 'else', а ожидалось ';'

Question

uses Crt;

var n,x1,x2 : real;

begin

    writeln('Введите любое целое число');

   readln(n);

    begin

   if NOT odd(n)then

    x1:= n/2;

       writeln('x1 =',x1);

      end

        else

        x2:=(n*3)+1;

    writeln('x2 =',x2);

   

    

   end.

Answer 1

А если так?

uses Crt;

var n,x1,x2 : real;

begin

    writeln('Введите любое целое число');

   readln(n);

    begin

   if NOT odd(n)then

    x1:= n/2;

       writeln('x1 =',x1);

      else

        x2:=(n*3)+1;
end;
    writeln('x2 =',x2);

   end.