Дано N чисел. Найти самое большое число, на которое делятся все 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 Ml do / /организуем цикл, пока исходные два числа не равны между собой

begin

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

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

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

end;

l:=l;

end;

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

end.