Найдите в Интернет серверы (сайты), посвященные деловым новостям. В отчете перечислите названия серверов с указанием Интернет-адресов и наименований организаций, которым принадлежат данные серверы. В отчете приведите описание web-серверов ведущих компаний (не менее 5) по следующим параметрам:
- название и адрес web-сервера;
- наименование организации, которой принадлежит данный сервер;
- тематическая направленность сервера;
- какая информация доступна на сервере;
- виды информационной продукции компании, цены, доступ;
- критерии оценки сервера;
- оценка сервера (выявление достоинств и недостатков по выявленным Критериям).

Const
    N = 10;

var
    A: array[1..N] of integer;

function Fun: integer;
var
    i, M: integer;
begin
    writeln('Введите число M=');
    readln(M);
    for i := 1 to N do
        if A[i] = M then Fun := i;
end;

procedure CreateMassive;
var
    i: integer;
begin
    for i := 1 to N do
    begin
        A[i] := Random(199) - 100;
        write(A[i],' ');
    end;
    Writeln;
end;

begin
    CreateMassive;
    Writeln(Fun);
end.

вот вариант исправления который работает, хотя конечно не факт что он работает как там кто-то задумывал)))
не понятно было назначение функции Fun потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно

Для того, чтобы перевести целое число из десятичной в двоичную систему счисления, необходимо разделить его на два, а затем делить на два каждое полученное частное до тех пор, пока не получится единица. Искомое двоичное число записывается как последовательность цифр, равных последнему частному (единице) и всем полученным остаткам, начиная с последнего.

Надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичную

Получается вот так:
21 = 10101
2=10
2002 = 11111010010

В итоге:
10101.10.11111010010