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

Question

Найдите ошибку в программе, выдаёт ошибку типа: Встречено 'WRITELN', а ожидалось ';' Даю 25 баллов PROGRAM KIRILL; VAR A,B: INTEGER; BEGIN READLN (A); IF A>=0 AND A<=3 THEN WRITELN ('ВВЕДИТЕ B'); READLN (B); IF B>=0 AND B<=3 THEN WRITELN ('ПОПОДАЕТ В ЗОНУ') ELSE WRITELN ('НЕ ПОПОДАЕТ В ЗОНУ'); Exit. ELSE WRITELN ('НЕ ПОПОДАЕТ В ЗОНУ'); Exit. END.

Answer 1

PROGRAM KIRILL;

VAR A,B: INTEGER;

BEGIN  

READLN (A);

IF (A>=0) AND (A

THEN  

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

READLN (B);

IF (B>=0) AND (B

THEN  

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

ELSE  

BEGIN

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

Exit;

END

END.