Определить, принадлежит ли точка с заданными координатами заштрихованной области

uses crt;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки:');
readln(x,y);
if(x>=0)and(x<=6)and(y>=x-6)and(y<=3*x-4) then
write('Принадлежит!') else write('Не принадлежит!');
readln
end.

uses crt;
var x,a,b,y:real;
begin
clrscr;
writeln('Введите 3 числа:');
readln(x,a,b);
if(x=0)or(b=0)or(a*x+b=0) then write('Решения нет!')
else
  begin
   y:=1/(b*x)+(a/(b*b))*ln(abs(x/(a*x+b)));
   write('X=',y:0:4);
  end;
readln
end.

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
writeln('Номера элементов, кратных 3:');
for i:=1 to n do
if a[i] mod 3=0 then write(i,' ');
readln
end.

Program mas;
Uses crt;
Const n=10;
Var a: array[1..n] of byte; i: byte;
Begin
Clrscr;
Randomize;
Writeln('Исходный массив: ');
For i:=1 to n do
begin
a[i]:=random(10);
Write(a[i]:3);
end;
Writeln(^j,^j,'Позиции элементов кратных 3-м: ');
For i:=1 to n do
If a[i] mod 3 = 0 then
Write(i:3);
End.

Program Z2;
var
  x, y: real;
  f1, f2, f: boolean;
begin
  writeln('Введите значения x и y: ');
  readln( x, y);
  f1:=(x>=2)and(y<=-4)and(y<=3*x-4)
  f2:=(x>=0)and(y<=0)and(y>=x-6)
  f:= f1 and f2;
  if f then
    writeln('Заданная точка принадлежит заданной области')
else
    writeln(' Заданная точка не принадлежит заданной области ');
end.

if(x>=0)and(x<=6)and(y>=x-6)and(y<=3*x-4)and(y<=0) then

uses crt;
type vrem=record//тип запись время
          chs:0..23;
          min:0..59;
          end;
     rasp=record//тип запись расписание
          pnc:string[20];
          nom:1..999;
          otp:vrem;
          ksm:word;
          cen:word;
          end;
    tfile=file of rasp;//файл записей
var f:tfile;//файловая переменная
    r:rasp;//переменная типа запись
    i,k:byte;//счетчики
    c:char;//символ для выхода из циклов repeat
    mch:0..23;//минимальный час
    mmn:0..59;//минимальныея минуты
    nm:1..999;//номер поезда
    ks:word;//кол. св. мест
    sc:word;//ср. цена
    p:string[20];//пункт
begin
clrscr;
assign(f,'raspisanie.dat');
rewrite(f);
writeln('Введите данные о поездах, окончание ввода Esc:');
i:=0;
repeat
i:=i+1;
writeln('Поезд ',i);
with r do
 begin
  write(' Пункт назначения: ');readln(pnc);
  repeat
   write(' Номер поезда (1..999)');readln(nom);
  until (nom>0)and(nom<=999);
  writeln(' Время отправления:');
  repeat
   write('  -часы: ');readln(otp.chs);
  until otp.chs in [0..23];
  repeat
   write('  -минуты: ');readln(otp.min);
  until otp.min in [0..59];
  write(' Количество свободных мест: ');readln(ksm);
  write(' Средня цена билета:' );readln(cen);
 end;
write(f,r);
c:=readkey;//выход из цикла Esc
until c=#27;
clrscr;
repeat
clrscr;
writeln('Введите название пункта назначения');
readln(p);
reset(f);
mch:=23;mmn:=59;//начальные значения минимумов
k:=0;//пока пункт не найден
while not eof(f) do
 begin
  read(f,r);//читаем записи
  if r.pnc=p then//если наш пункт
   begin
    k:=1;//фиксируем
     //если час меньше минимума, или равен, но минуты меньше
    if (r.otp.chs<mch)or((r.otp.chs=mch)and(r.otp.min<mmn))then
     begin
      mch:=r.otp.chs;//мин час
      mmn:=r.otp.min;//мин минуты
      nm:=r.nom;//номер
      ks:=r.ksm;//св. места
      sc:=r.cen;//цена
     end;
   end;
 end;
close(f);
if k=0 then writeln('Такого направления нет!')
else writeln('Самый ранний поезд в ',mch,' ч. ',mmn,' мин. № ',nm,' св.мест ',ks,' ср.цена ',sc);
writeln('Повторить поиск? -  Y/y нет - любая клавиша');
readln(c);
if not (c in ['Y','y']) then exit;
until not (c in ['Y','y']);
readln
end.