нужно определить, входит ли точка в область определения (заштрихованная область). Чтобы задать эту область - выявляем графики для трёх прямых, все три условия для них должны выполняться одновременно (союз and). Это нужно написать программу в паскале

В общем, т.к. ты мне не ответил - лови две программы:
1)
Program dasf;
var b,c,i: integer;   
A: Array[1..100] of real;   
D: Array[1..100] of real;
begin
Writeln('Введите размерность массива D');
readln(b);
For i:=1 to b do 
begin   
Writeln('Введите элемент массива №',i);   
readln(D[i]); 
end;
Writeln('Массив А:');
For i:=1 to b do 
begin   
If i mod 2=1 then A[i]:=5+(D[i]*D[i])     
else A[i]:=D[i]/i;   
Writeln(A[i]); 
end;
end.

2)
Program fgsadg;
var i,b,x,y,z,k,t: integer;
begin 
Writeln('Введите сколько чисел будет использоваться:'); 
readln(b); 
Writeln('Введите х:'); 
readln(x); 
Writeln('Введите число №',1); 
readln(z); 
k:=0; 
For i:=2 to b do   
begin     
Writeln('Введите число №',i);     
readln(y);     
If z+y=x then k:=k+1;     
z:=y;   
end; 
Writeln(k); 
end. 
Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.            

//дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от -10 до 20.
 //Составьте программу, которая подсчитывает и выводит среднюю температуру по всем дням, 
//когда были заморозки. Гарантируется, что хотя бы в один день были заморозки

var i,x,y  : shortint;
    s      : real;
    t      : array [1..30] of shortint;
begin
  randomize;
  For i:=1 to 30 do
    begin
     t[i]:=random (31)-10; //заполняем таблицу случайным образом (в диапазоне от -10 до 20)
     writeln (i,'  ',t[i]); //строка не обязательная просто позволяет увидеть заполненный массив  
   end;
 for i:=1 to 30 do
   begin
     if t[i]<0 then
        begin
         x:=x+t[i];
         y:=y+1;
       end;
   end;
   s:=x/y;
   writeln ('Средняя температура по дням, когда были заморозки ',s:0:2);
end.