Составить программу, определяющую принадлежность точки с координатами x, y заштрихованной области:

А перед readln не надо писать writeln?

Не обязательно.

Можно написать, тогда - все, что будет написано в апострофах выйдет на экран в неизменном виде. Это удобство, но не обязательная часть программы. Но можно добавить

Writeln('Введите x y')

а без writelm просто будет мигать курсор и ждать, когда будут введены x y через Enter

VARX,Y:REAL;    BEGIN         READLN(X,Y);              IF (Y<=-X+6)AND(Y>=-2*X+4)AND(Y>=0)AND(X>=0)THEN                    WRITELN('ПРИНАДЛЕЖИТ')              ELSE                     WRITELN('НЕ ПРИНАДЛЕЖИТ')END.