Ответ: var x,y,r,n : integer;beginread(x,y,r);if ((x*x + y*y) <= (r*r)) then n := 1 else n := 0;writeln(n);end.