Лабораторные / Лаб_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.