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<=3)

THEN  

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

READLN (B);

IF (B>=0) AND (B<=3)

THEN  

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

ELSE  

BEGIN

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

Exit;

END

END.