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.