Ответы и объяснения

Лучший Ответ!
2013-10-22T21:09:14+04:00
Var x,y:real; l:boolean;
begin
writeln('введите x,y');
readln(x,y);
l:=(x*x+y*y<=1)and(y<=1-x*x);
if(l=True) then writeln('точка лежит в заданной области')
else writeln('точка не лежит в заданной области');
end.