Лабораторные / Лаб_1 / Вар_12 / myprog_2

program myprog_var_2;
var
  x,y,r:real;
  bool:boolean;
begin
	writeln('Введите координаты точек X и Y:');
	readln(x,y);
	r:=sqrt(sqr(x)+sqr(y));
	bool:=((r<1)and((y>0)and(x<0.3)or(y<0)and(x>0.3)));
	writeln('Значение: ',bool);
end.