Панель управления -> Центр управления сетями и общим доступом -> Свойства адаптера -> ПКМ по "Подключение по локальной сети" -> "Включить".
Решение во вложении. Не забудьте разрешить выполнение макросов и проектов VBA без цифровой подписи.
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=-x)and(y>=x)and(y<=1)
then writeln('YES')
else writeln('NO')
end.
Пример:
x = 0.5
y = 0.3
NO