Программа

Program Pilshikov_5_49 (input,output);
{ Дано 10 натуральных.
  Найти НОД.            }
Var  N,NOD,Buf,i:integer;
BEGIN
  Write('Введите N1 ');
  Readln(N);
  NOD:=N;
  for i:=2 to 10 do
    Begin
      Write('Введите N',i,' ');
      Readln(N);
      if N<NOD then begin
                      Buf:=N;
                      N:=NOD;
                      NOD:=Buf
                    end;
      while (NOD<>0) do begin
                          Buf:=N;
                          N:=NOD;
                          NOD:=Buf;
                          NOD:=NOD mod N
                        end;
      NOD:=N
    End;
  Writeln('НОД=',NOD)
END.