Program qwertyyuiop var x, y: integer; begin writeln('введите координаты x') read(x); writeln('введите координаты y') read(y); if ((x> =0) and ((x< =1.5)) and (y< =2)); then writeln('принадлежит'); else writeln('не принадлежит'); end. ошибка var x, y: как исправить?

Попутаны знаки ; во многих местах, должно получиться вот так:

PROGRAM QWERTYYUIOP;

VAR X, Y: INTEGER;

BEGIN

WRITELN('ВВЕДИТЕ КООРДИНАТЫ X');

READ(X);

WRITELN('ВВЕДИТЕ КООРДИНАТЫ Y');

READ(Y);

IF ((X>=0) AND ((X<=1.5)) AND (Y<=2))

THEN

WRITELN('ПРИНАДЛЕЖИТ')

ELSE

WRITELN('НЕ ПРИНАДЛЕЖИТ');

END.