Pascal abc принадлежит ли заданная точка о(xo,yo) области, границы которой определяются уравнениями: б) y-2x=2, y+x=2, x+y=1, x-2y=2

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 потому она делает поиск номера элемента равного М
а вообще глобальные переменные это зло. Так что проектирование тут в корне не верно

Знаковая система - набор символов определенного типа. Любая знаковая система строится на основании символов определенного типа. В одной знаковой системе одни и те же правила работы со всеми символами. Каждая знаковая система имеет конечный набор символов, который называют алфавитом. Количество символов в одной знаковой системе называют мощностью знаковой системы.
Русский язык - это естественная знаковая система. Имеет алфавит, который состоит из букв, буквы дают возможность формировать слова - основу русского языка. Мощность русского алфавита - 33 буквы. Правила чтения слов применяются для всех букв. Написание одних и тех же букв в разных словах одинаково.
Десятичная система счисления - формальная знаковая система. Это математическая знаковая система. Алфавит состоит из набора цифр: 0, 1, 2, 3, 4 и т.д. Мощность алфавита - 10 цифр. Правила сложения, вычитания, умножения, деления, возведения в степень и других математических действий используется для любых чисел, состоящих из цифр десятичной системы.