Найдите ошибку в программке, выдаёт ошибку типа: Встречено 039;WRITELN039;, а ожидалось

Найдите ошибку в программке, выдаёт ошибку типа: Встречено 'WRITELN', а ожидалось ';'
Даю 25 баллов

PROGRAM KIRILL;
VAR A,B: INTEGER;
BEGIN
READLN (A);
IF Agt;=0 AND Alt;=3
THEN
WRITELN ('ВВЕДИТЕ B');
READLN (B);
IF Bgt;=0 AND Blt;=3
THEN
WRITELN ('ПОПОДАЕТ В ЗОНУ')
ELSE
WRITELN ('НЕ ПОПОДАЕТ В ЗОНУ');
Exit.
ELSE
WRITELN ('НЕ ПОПОДАЕТ В ЗОНУ');
Exit.

END.

Задать свой вопрос
1 ответ

PROGRAM KIRILL;

VAR A,B: INTEGER;

BEGIN  

READLN (A);

IF (Agt;=0) AND (Alt;=3)

THEN  

WRITELN ('ВВЕДИТЕ B');

READLN (B);

IF (Bgt;=0) AND (Blt;=3)

THEN  

WRITELN ('ПОПОДАЕТ В ЗОНУ')

ELSE  

BEGIN

WRITELN ('НЕ ПОПОДАЕТ В ЗОНУ');

Exit;

END

END.

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт