Найдите ошибку в программе, выдаёт ошибку типа: Встречено '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.
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.