Напишите программу на BASIC-языке, чтобы на экране монитора отображался образец чертежа. Квадратный край 200pt. Замкнутые поверхности покрасьте по рисунку в любой цвет.​

Var
  x,y:real;
begin
  Write('Введите координаты x и y точки: '); Readln(x,y);
  Write('Точка с указанными координатами ');
  if not ((y<=x) and (x<=2) and ((sqr(x)+sqr(y))>=4) and (y>=0)) then
    Write('не ');
  Writeln('принадлежит заштрихованной области.')
end.

Примеры выполнения программы:
Введите координаты x и y точки: 1.9 2.1
Точка с указанными координатами не принадлежит заштрихованной области.

Введите координаты x и y точки: 1.9 1.82
Точка с указанными координатами принадлежит заштрихованной области.

Введите координаты x и y точки: 1 -3
Точка с указанными координатами не принадлежит заштрихованной области.

Var b,c,n,i,r:integer;
mass1:array[1..1000] of integer;
mass2:array[1..1000] of integer;
begin
writeln('Введите кол-во элементов массива');
read(n);
r:=1;
for i:=1 to n do
begin
mass1[i]:=random(19)-10;
if i mod 2=0 then begin
mass2[r]:=mass1[i];
r:=r+1;
end;
end;
for i:=1 to r do
if mass2[r]>0 then c:=c+1 else b:=b+1;
writeln('Исходный массив');
for i:=1 to n do
write(mass1[i]:4);
writeln;
for i:=1 to r do
write(mass2[i]:4);
writeln;
writeln('Кол-во положительных элементов массива равно ',c,' а отрицательных равно ',b);
end.