Листинг программы

program z2;

{Даны n чисел. Опред яв-ся ли они взаимно простыми

 т.е. имеют общий делитель отлич. от единицы    }

uses crt;

var a : array [1..100] of longint;

    i,max,n,j : longint;

 begin

  clrscr;

   write('введите кол-во чисел:');readln(n);

   for i:=1 to n do

    begin

     write(i,') число:');readln(a[i]);

    end;

   max:=a[1];

   for i:=2 to n do if max<a[i] then max:=a[i];

   for i:=2 to max do

    for j:=1 to n do

     if a[j] mod i=0 then beginwrite('ДА');readln;halt;end

                     else beginwrite('НЕТ');readln;halt;end;

  readln;

 end.