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

program myprog_1;
var
	x,y,r: real;
	w:integer;
	bool:boolean;
begin
	writeln('Введите координаты X и Y:');
	readln(x,y);
	w:=1;
	r:=sqrt(sqr(x)+sqr(y));
	if(r<1)then
		begin
		w:=2;
		if(y<0)then
			if(x>0.3)then
				begin
				w:=5;
				bool:=true;
				end
			else
		w:=4
		else
			if(x<0.3)then
				begin
				w:=3;
				bool:=true;
				end
		end;
		writeln('Путь: ',w);
		writeln('Значение: ',bool);
end.