среда, 11 января 2012 г.

program pl9;
uses crt;
var S, x, y, x0, y0, r : real;
begin
writeln ('kordinata centra'); read(x0,y0);
writeln ('radius'); read(r);
writeln ('kordinata tochki'); read(x,y);
S:=sqrt((x-x0)*(x-x0)+(y-y0)*(y-y0));
if S>r then write ('vne okp') else write ('vnytri');
end.