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

program v10;
var x,y,a,b,r:real;
begin
writeln('vvedite znachenie x,y,a,b,r');
readln(x,y,a,b,r);
if(r<=0)
then
writeln('error r bolshe 0')
else
if (sqr(r)>=sqr(x)+sqr(y)) and(y<=0) and(y>=b) and (x<=0) and (x>=-r)and (x>=a) or
(sqr(r)<=sqr(x)+sqr(y)) and (y<=b) and (y>=0) and (x<=a) and (x>=r)
then
writeln('popadaet')
else
writeln('ne popadaet');
readln;
end.