Код: Выделить всё
Program tochka;
uses crt;
var
r,x,y:real;
begin
clrscr;
writeln ('vvedite x,y,z');
readln (x,y,z);
if ((sqr(x)+sqr(y)<=sqr(r)) and (sqr(r-x)+sqr(r-y)<=sqr(r))) then
begin
if (sqr(x)+sqr(y)=sqr(r)) or (sqr(r-x)+sqr(r-y)=sqr(r)) then
writeln ('popadaet na granicu') else write ('popadaet');
end
else write ('ne popadaet');
readln;
end.