Написать программу, которая проверяет, принадлежит ли точка (x,y) закрашенной области (x,y и r вводится пользователем)

{pascalabc}

program f0rwardirop;

var  

  r,x,y: real;

  b: boolean;

  i: integer;

  s: string;

begin

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; write('ok, введите r = '); readln(r);

  write('теперь введите х = '); readln(x);

  write('и, наконец, введите y = '); readln(y);

  if x> =0 then

    if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')

  else writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.

a

Объяснение:

Если индексы начинаются с единицы то 24

массив выглядит так:

a = [22, 25,27, 24]

с индексами:

a = [1: 22, 2: 25, 3: 27, 4: 24]