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

program v1;
var y,x,r:real;
begin
writeln('vvedite znachenie y,x,r');
readln (y,x,r);
if r<=0 then writeln('r ne mozhet bit menshe 0')
else
if ((sqr(r)>=sqr(x)+sqr(y))and(x>=0) and(x<=r*cos(45))and(y>=0)and(y<=r)and(y>=x)) or
(sqr(r)>=sqr(y)+sqr(x))and(x<=0)and(x>=-r*cos(45))and(y<=0)and(y<=x)
then
writeln('vse ok')
else
writeln('not ok');
readln;
end.