Question

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

Answer 1

VAR
X,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.
   

Answer 2

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

Answer 3

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