Ну ребят это программирование я не нашел для него топик поэтому тут.

[ПРОСТО КОЛЯ]

Все просто найти ошибку
Требовалось написать программу, при выполнении
которой с клавиатуры считываются координаты точки
на плоскости (x, y – действительные числа) и
определяется принадлежность этой точки заданной
закрашенной области (включая границы).

var x,y: real;
begin
readln(x,y);
if y>=-x then
if y<=1 then
if (x*x+y*y<=1) then
write('принадлежит')
else
write('не принадлежит')
end.

[монЯрхъ]

Думаю ответов нет потому, что не ясно изложено условие. "Какая заданная закрашенная область?" и т.п. И поэтому не понятно почему вы используете данные условия оператора if

[ПРОСТО КОЛЯ]

//текст доступен после регистрации//
вот изображение к задаче извините протупил.

[Вилли ☂]

...
if y<=1 then
if (x*x+y*y<=1) then
write('принадлежит')
else
...

Этим условием вы отсекаете область верхнюю левую "треугольничек"

Вы берете только пересечение всех 3-х множеств

добавьте к нему например " ИЛИ x<0 "

[ПРОСТО КОЛЯ]

неплохо, вилли хорошо знаете програмирование?

[ПРОСТО КОЛЯ]

Ну чтож отлично продолжим
Дан целочисленный массив из 20 элементов. Элементы массива могут
принимать целые значения от –1000 до 1000. Опишите алгоритм, позволяющий найти и
вывести минимальное значение среди элементов массива, которые имеют
чётное значение и не делятся на три. Гарантируется, что в исходном
массиве есть хотя бы один элемент, значение которого чётно и не кратно
трем.
Исходные данные объявлены так, как показано ниже. Запрещается
использовать переменные, не описанные ниже, но разрешается не
использовать часть из них.
Паскаль
const
N=20;
var
a: array [1..N] of
integer;
i, j, min: integer;
begin
for i:=1 to N do
readln(a);
Закончите программу

[Sirion]

реквестирую перенос этой темы в "Помогите решить!"
задачи из ЕГЭ не представляют самостоятельного интереса для любителей головоломок

[Вилли ☂]

неплохо, вилли хорошо знаете программирование?

да