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

program v5;
var x,y,r:real;
begin
writeln('vvedite x,y,r');
readln(x,y,r);
if r<=0
then writeln('takogo ne mozhet bit')
else
if ((x<=0)and(x>=-r)and(y>=0)and(y<=r)and(y<=x+r))or
((sqr(r)>=sqr(x)+sqr(y)) and(y>=0)and(y<=r)and(x>=0)and(x<=r))or
((sqr(r)>=sqr(x)+sqr(y)) and(y<=0)and(y>=-r)and(x<=0)and(x>=-r))
then writeln('vistrel popal')
else writeln('vistrel ne popal');
readln;
end.