Принадлежит ли точка с координатами следующей области

[TOMMY666]

поиогите люди
59(е). Даны действительные числа x, y. Определить, принадлежит ли
точка с координатами следующей области: треугольник с вершинами (-
2, 0), (0, 1), (0, -1) в обьединении с полукругом x*x+y*y=1 (
x>=0).
67(г). Дано натуральное число n (n<=100). Найти первую цифру
числа n.

From Stilet: Ты че в чужую тему лезешь?

[Филантроп]

program pr1;
uses crt;
type tarray:=array[1..3] of Real;
var
x2,y2:tarray;
xt,yt:Real;
yes:boolean;
Function TR(x,y:real;x1,y1:tarray):integer;
  Function PR(i,j:integer):boolean;
    begin
      PR:=((x-x1[i])*(y1[j]-y1[i]))>((x1[j]-x1[i])*(y-y1[i]));
    end;
begin
  if ((pr(1,2))=(pr(2,3))) and ((pr(1,2))=(pr(3,1))) 
    then TR:=1 else TR:=0
end;
begin
x2[1]:=-2;
y2[1]:=0;
x2[1]:=0;
y2[1]:=1;
x2[1]:=0;
y2[1]:=-1;
readln(xt);
Readln(yt);
if (xt=>0) and (sqr(xt)+sqr(yt)=1) then yes:=true
else if tr(xt,yt,x2,y2)=1 then yes:=true
else yes:=false;
if yes then writeln('принадлежит!')
else writeln('не принадлежит!');
readln;
end.

program pc;
var n:integer;
k:integer;
begin
readln(n);
case n of 
100:k:=1;
10..99:k:=n div 10;
1..9:k:=n;
end;
writeln(k);
readln;
end.

[TOMMY666]

Сообщение от TOMMY666

Чуаки, препод сказал что эти 2 задачки не правельные

82. Дано действительное число x. Вычислить
(x-2)(x-4)(x-8)... (x-64)
-------------------------.
(x-1)(x-3)(x-7)... (x-63)

80. Дано действительное число x. Вычислить
3 5 7 9 11 13
x-x /3!+x /5!-x /7!+x /9!-x /11!+x /13!

В 80 цифры сверчу это степень. Над вторым x третья, над третим пятая и т.д

[TOMMY666]

А можете написать пояснение к этим 2 программам

program pr1;
uses crt;
type tarray:=array[1..3] of Real;
var
x2,y2:tarray;
xt,yt:Real;
yes:boolean;
Function TR(x,y:real;x1,y1:tarray):integer;
  Function PR(i,j:integer):boolean;
    begin
      PR:=((x-x1[i])*(y1[j]-y1[i]))>((x1[j]-x1[i])*(y-y1[i]));
    end;
begin
  if ((pr(1,2))=(pr(2,3))) and ((pr(1,2))=(pr(3,1))) 
    then TR:=1 else TR:=0
end;
begin
x2[1]:=-2;
y2[1]:=0;
x2[1]:=0;
y2[1]:=1;
x2[1]:=0;
y2[1]:=-1;
readln(xt);
Readln(yt);
if (xt=>0) and (sqr(xt)+sqr(yt)=1) then yes:=true
else if tr(xt,yt,x2,y2)=1 then yes:=true
else yes:=false;
if yes then writeln('принадлежит!')
else writeln('не принадлежит!');
readln;
end.

program pc;
var n:integer;
k:integer;
begin
readln(n);
case n of 
100:k:=1;
10..99:k:=n div 10;
1..9:k:=n;
end;
writeln(k);
readln;
end.