Bạn tham khảo code này xem được không. Lố thời gian hoài hà.

================================

program Hello;
var m,n,i,d:longint;
    a:array[1..1000000] of int64;
begin
    readln(n);
    m:= 1000000000;
    for i:= 1 to n do
        read(a[i]);       
i:=0;
    while d < n do
        begin
            if i = n then i:=0;
            inc(i);
            if (m < a[i]) and (a[i] - m > 0) then
                if m*(a[i] div m) < a[i] then
                    a[i]:= a[i] - m*(a[i] div m)
                else
                    a[i]:= a[i] - m;
            if m > a[i] then begin m:= a[i]; d:=0; end;
            if m = a[i] then inc(d);
        end;
    writeln(m*n);
end.
    

#Danmelaptrinh

uses crt;
type tlist = array[1..1000] of longint;
var i,n,k,s:longint; a:tlist;
procedure qsort(var a : tlist);
    procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;
    begin
       sort(1,n);
    end;
begin
clrscr;
   readln(n);
   for i:=1 to n do read(a[i]); 
   repeat 
      qsort(a);
      k:=n; 
      while (k>0)and(a[k]=a[n]) do dec(k);
      while (k<>0)and(a[n]>a[k]) do a[n]:=a[n]-a[k];
      s:=0;
      for i:=1 to n do s:=s+a[i];
   until k=0;   
   writeln(s);
end.