составить алгоритм язык паскаль​

Если Вы ранее пользовались интернетом и все было нормально, то следует проверить компьютер на вирусы. Возможно  антивирусная программа попросту устарела. Тогда, следует обновить антивирусную программу или установить новую. Если же вирусов нет, то проверьте качество сети, иногда браузеры выдают аварийную ошибку, когда прерывается связь. Это можно легко определить, на модеме будет часто и прерывисто мигать лампочка (если у вас модем допустим мегафон или что-то подобное), на стационарном модеме, подключенном к телефону, потухнет или будет гореть красным знак "собаки". 
Когда вы убедились, что с Вашей стороны все в порядке. то вы имеете право обратиться в "Центр управления сетями и общим доступом", или обратиться по телефону, указанному в договоре с компанией представителем услуг, с сообщением о неисправности сети. В указанный  срок они обязаны устранить неполадки.

using System;

using System.Collections.Generic;

using System.Linq;

using System.Text;

namespace ConsoleApp

{

   class Program

   {

       //Объявление  счетчика попаданий

       public int Tochek_Popalo;

       //Метод проверки, входят ли наши точки в окружность, который в конце выдает нам количество вхождений "Tochek_Popalo"

       public int ProverkaVhojdeniya(int[] Massiv_X, int[] Massiv_Y)

       {

           int Schetchik = 0;

           for (int i = 0; i < Massiv_X.Length; i++)

           {

               if (Math.Sqrt((50 - Massiv_X[i]) * (50 - Massiv_X[i]) + (50 - Massiv_Y[i]) * (50 - Massiv_Y[i])) <= 30)

                   Schetchik++;

           }

           Tochek_Popalo = Schetchik;

           return Tochek_Popalo;

       }

       //Просто метод вывода результата на консоль

       public void Vivod_Na_Konsol()

       {

           Console.WriteLine("\nТочек (x,y) попало в окружность: " + Tochek_Popalo);

       }

       static void Main(string[] args)

       {

           int[] x = new int[10]; //Создаем массив ИКСОВ из 10 элементов

           int[] y = new int[10]; //Создаем массив ИГРИКОВ из 10 элементов

           Random RandomZnacheniya = new Random();

           //цикл присваивания случайных элементов в массив [x] от 0 до 100                        

           for (int i = 0; i < x.Length; i++)

               x[i] = RandomZnacheniya.Next(0, 100);

           //цикл присваивания случайных элементов в массив [x] от 0 до 100                            

           for (int i = 0; i < x.Length; i++)

               y[i] = RandomZnacheniya.Next(0, 100);

           //Просто вывод массива [x] на экран циклом "foreach"

           Console.Write("ИКСЫ: ");

           foreach (var item in x)

               Console.Write(" " + item);

           //Просто вывод массива [y] на экран циклом "foreach"

           Console.Write("\nИГРИКИ: ");

           foreach (var item in y)

               Console.Write(" " + item);

           //Создание экземпляра класса  

           Program Peredacha = new Program();

           //Вызов и передача наших массивов в Метод "ProverkaVhojdeniya"

           Peredacha.ProverkaVhojdeniya(x, y);

           //Вызов метода "Vivod_Na_Konsol"

           Peredacha.Vivod_Na_Konsol();

       }

   }

}

Объяснение: Проверь . Вроде все верно работает.  Если что пиши или отметь как верный ответ .