program kontrolnaya;
uses crt;
var a,b,z,r:real;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('r=');readln(r);
if (((a-5)*(a-5)+b*b<r*r) and not((a+5)*(a+5)+b*b<r*r)) or (((a+5)*(a+5)+b*b<r*r) and not((a-5)*(a-5)+b*b<r*r)) then
 begin
  writeln('Точка попадает в область!');
  z:=a*a-3*b;
 end
else
 begin
  writeln('Точка не попадает в область!');
  if (a<0)and(b<0) then z:=25+a+b
  else z:=a-b;
 end;
write('Z=',z:0:2);
readln
end.