1.Оберіть формати файлів, у яких не використовується стиснення або використовується стиснення без втрати
midі
flac
wav
mov
mp3
2.Об'єкт мультимедіа не може містити
Аудіо
Електронні таблиці
Звук
Відео
Графічні зображення
Паролі
3.Оберіть формати файлів звукосинтезу
flac
mp3
mod
wav
midі
4.Оберіть формати файлів, у яких використовується стиснення із частковою втратою даних
flac
mov
midі
mp3
wav
5.wav, mid, flac, mp3, wma - мають розширення імен файлів
Зображення
Відео
Аудіо
Текстових даних
6.3gp, flv, avi, mpg, mov, swf, asf, mp4, wmv - розширення імен файлів
Аудіо
Зображення
Текстових даних
Відео

#include<iostream>
using namespace std;

int main ()

{
system("CHCP 1251>NUL");
int m,n;
int max;
cout<<"m="; cin>>m;

cout<<"n="; cin>>n;

if (m==0 || n==0)
{
cout<<"не выполняется условие" << endl;
system("pause");
return 0;
}
if (n>m)
max=n;
else
max=m;
cout<<"ответ:" << endl;

for (int i =-max; i<=-1; i++) // - цикл определения отрицательных делителей.
{
if ((m%i==0)&&(n%i==0))
cout<< i <<" ";  // вывод отрицательного результата
}
for (int i = 1; i<=max; i++) // цикл для определения положительных делителей
{
if ((m%i==0)&&(n%i==0))
cout<<i<<" "; // вывод положительного результата
}
cout<<endl;
system("pause");
return 0;
}

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