Просто подключить кабель обратно, должно заработать. Если не заработает, то проведите самостоятельную диагностику Windows. Если у Вас роутер, то приобретите отдельный сетевой кабель и через роутер подключите к компьютеру. Так же, можно воспользоваться Wifi-Adapter, данное устройство нужно покупать, оно позволяет подключать Ваш ПК к WIFI сетям, как телефон или ноутбук, там они встроенные. Возможно стоит переустановить драйверы.
Program pryam;
Var y1, y2, y3, x1, x2 : real;
Begin
writeln ('Введите координату (у) верхней точки прямой');
readln (y1);
writeln ('Введите координату (у) нижней точки прямой');
readln (y2);
writeln ('Введите координату (х) точек-концов прямой');
readln (x1);
writeln ('Введите координату (у) точки, принадлежность к прямой которой нужно определить');
readln (y3);
writeln ('Введите координату (х) точки, принадлежность к прямой которой нужно определить');
readln (x2);
if (y3<=y1) and (y3>=y2) and (x2=x1) then writeln (' принадлежит ')
else writeln (' не принадлежит ');
readln;
End.
дома должен быть роутер.
чтобы зайти нужно в настройки выбрать нужную сеть (показано на роутере какая сеть)
смотришь пароль (тоже на роутере) и вводишь. И ещё надо врубить кабель!