Как исправить ошибку

[yana33311]

Есть код. Говорит ошибка
строка 69(предпоследняя строка) Ожидалось ';'

PROGRAM EXAMPLE;
USES CRT;
VAR X1,A1,Y1:REAL; { ОПИСАНИЕ ПЕРВОЙ ЗАДАЧИ }
K:REAL; { ОПИСАНИЕ ВТОРОЙ ЗАДАЧИ }
X3,Y3,Z:REAL; { ОПИСАНИЕ ТРЕТЬЕЙ ЗАДАЧИ }
SELECTOR:BYTE;
BEGIN
REPEAT
CLRSCR; { ОЧИСТКА ЭКРАНА }
WRITELN(' ВВЕДИТЕ НОМЕР ЗАДАЧИ СОГЛАСНО МЕНЮ : ');
WRITELN;
WRITELN(' 1.........ЗАДАЧА 1 ');
WRITELN(' 2.........ЗАДАЧА 2 ');
WRITELN(' 3.........ЗАДАЧА 3 ');
WRITELN(' 4.........ВЫХОД ИЗ ПРОГРАММЫ ');
READLN(SELECTOR);

CASE SELECTOR OF

1: BEGIN { ПЕРВАЯ ЗАДАЧА }
CLRSCR;
WRITELN('ВВЕДИТЕ ВЕЩЕСТВЕННЫЕ ЧИСЛА X И A ');
READLN(X1,A1);
IF X1<2*A1 THEN Y1:=-sqrt(sqr(a1)-sqr(x1-a1))
ELSE Y1:=a1*(1-exp((a1-x1)*ln(e)));
WRITELN('A=',A1:5:3,' X=',X1:5:3,' Y=',Y1:5:3);
WRITELN;WRITELN;
WRITELN('НАЖМИТЕ ENTER ДЛЯ ПРОДОЛЖЕНИЯ');
READLN;
END; { КОНЕЦ ПЕРВОЙ ЗАДАЧИ }
2: BEGIN { ВТОРАЯ ЗАДАЧА }
CLRSCR;
WRITELN('ВВЕДИТЕ ВЕЩЕСТВЕННЫЕ ЧИСЛА А И Х ');
READLN(K);
CASE K OF
'a'..'z','A'..'Z':write('Латинский' );
'а'..'я', 'ё','А'..'Я':write('Русский');
'0'..'9':write('Цифра');
END; { CASE }
WRITELN;WRITELN;
WRITELN('НАЖМИТЕ ENTER ДЛЯ ПРОДОЛЖЕНИЯ');
READLN;
END; { КОНЕЦ ВТОРОЙ ЗАДАЧИ }



3: BEGIN { ТРЕТЬЯ ЗАДАЧА }
CLRSCR;
var x,y:integer;
begin
Write('ВВЕДИТЕ КООРДИНАТЫ ТОЧКИ X: ');
ReadLn(x);
Write('ВВЕДИТЕ КООРДИНАТЫ ТОЧКИ Y: ');
ReadLn(y);

if ( (x > 3) or (x < -3) ) then WriteLn('ТОЧКА НЕ ПРИНАДЛЕЖИТ ОБЛАСТИ')
else if ( (y > 1 ) or (y < -2) ) then WriteLn('ТОЧКА НЕ ПРИНАДЛЕЖИТ ОБЛАСТИ')
else if ( (x < -1) and (y < 0) ) then WriteLn('ТОЧКА НЕ ПРИНАДЛЕЖИТ ОБЛАСТИ')
else if ( (x > 1) and (y < 0) ) then WriteLn('ТОЧКА НЕ ПРИНАДЛЕЖИТ ОБЛАСТИ')
else WriteLn('ТОЧКА ПРИНАДЛЕЖИТ ОБЛАСТИ');
WRITELN;WRITELN;
WRITELN('НАЖМИТЕ ENTER ДЛЯ ПРОДОЛЖЕНИЯ');
Readln;
end; { КОНЕЦ ТРЕТЬЕЙ ЗАДАЧИ }


4: EXIT; { ВЫХОД ИЗ ПРОГРАММЫ }
END; { CASE }
UNTIL FALSE;
END.

[Вадим Мошев]

Поставьте точку с запятой (;) в этой строке

[MyLastHit]

ELSE Y1:=a1*(1-exp((a1-x1)*ln(e)));

Что за "е"? Не вижу ее в варах.

var x,y:integer;

А в ходе работы программы на паскале разве можно объявлять переменные?

1) Откуда этот код? О_о
2) Скажите что ваша программа выполнять должна?