pascal

[miron.n]

посмотрите пжл,что можно зделать. вообще ничего не понятно.
спасибо)

[DoDge_VipeR]

=II=

uses crt;
var x,y,m,p:real;
begin
readln(x);
readln(y);
m:=ln(x)+exp(1/3*ln(sqr(y)))-4;
writeln('m=',m:6:2);
if m<0 then writeln('p=',(sqrt(abs(x))+cos(y)):6:2)
else writeln('m>=0');
readkey;
end.

=I=

var x,y:real;
s:string;
Function WherePoint(ax,ay,bx,by,px,py:real):integer;
var s :real;
begin
    s:=(bx-ax)*(py-ay)-(by-ay)*(px-ax);
    if s>0 then WherePoint:=1
    else if s<0 then WherePoint:=-1
    else WherePoint:=0;
end;
Function PointInsideTreangle(ax,ay,bx,by,cx,cy,px,py:real):boolean;
var s1,s2,s3 :integer;
begin
    PointInsideTreangle:=FALSE;
    s1:=WherePoint(ax,ay,bx,by,px,py);
    s2:=WherePoint(bx,by,cx,cy,px,py);
    if s2*s1<=0 then EXIT;
    s3:=WherePoint(cx,cy,ax,ay,px,py);
    if s3*s2<=0 then EXIT;
    PointInsideTreangle:=TRUE;
end;
Begin 
    readln(x);
	readln(y);
	s:='Вне Области';
	if (x>=0) and (x<=1) and (y>=0) and (y<=1) then s:='3'else
	if (x<0) and (x>=-1) and (y<0) and (x>=-1) then s:='1' else
	if PointInsideTreangle(-1,0,0,1,0,0,x,y) then s:='4'else
	if PointInsideTreangle(0,-1,1,0,0,0,x,y) then s:='2' else
	s:='Вне Области';
 	writeln(s);
	readln;
End.

[miron.n]

спасибо большое.