написанные программы / лаба №2 с отчетом все варианты. / lab2 (7) / LAB2(7)

program v7;
var x,y,r:real;
begin
writeln('vvedite x,y,r');
readln(x,y,r);
if (r<=0) then writeln('ne imeet smisla')
else
if ((sqr(r)>=sqr(x+r)+sqr(y-r))and(y>=0)and(y<=2*r)and(x<=0)and(x>=-2*r))or
((x>=0)and(x<=2*r)and(y<=0)and(y>=-r))
then writeln('da')
else writeln('net');
readln;
end.