Program vika; var x, y : integer; begin writeln ('ведите x'); readln (x); writeln ('ведите y'); readln (y); if (x> 0) and (y> 0) then writeln (' в 1') else (x> 0) and (y< 0) then writeln ('в 4') if (x< 0) and (y> 0) then writeln ('во 2') else (x< 0) and (y< 0) then writeln ('в 3'); end. пишет что встречено 'and', а ожидалось '; ' где ошибка? буду

Program vika;
var x, y : integer;
begin
writeln ('Ведите x');
readln (X);
writeln ('Ведите y');
readln (y);
if
(x>0) and (y>0) then writeln (' В 1');
else
if (x>0) and (y<0) then writeln ('В 4');
if
(x<0) and (y>0) then writeln ('Во 2');
else
if (x<0) and (y<0) then writeln ('В 3');
end.
немного исправил.