Дано N чисел. Отыскать самое огромное число, на которое делятся все

Program zz1;

var M, N, l, i: integer;  //задаем переменные целого типа

begin

    writeln( Введите  N); //вводим с клавиатуры  заданное число

    readln(N);

    read(m);l:=m;

    for i:=2 to n do

    begin

    read(m);

    while Mlt;gt;l do  //организуем цикл, пока исходные два числа не одинаковы между собой

         begin

              if Mgt;l // проверяем условие, если первое число больше второго

              then M:=M-l // то, от первого отнимаем второе

              else l:=l-m; // по другому, от второго отнимаем 1-ое

    end;

   l:=l;

   end;

    write( самое великое число, на которое делятся все N чисел =, l); // выводим ответ

end.