#include<bits/stdc++.h>
using namespace std;
int ucln(int a, int b){
    while (a*b != 0){
        if (a > b){
            a %= b;
        }else{
            b %= a;
        }
    }
    return a + b;
}
int bcnn(int a, int b)
{
    return a*b/ucln(a,b);
}
int main()
{
    int bn=1;
    int n;
    cin>>n;
    int arr[n];
    for(int i=0;i<n;i++){
        cin>>arr[i];
    }
    int ln=arr[0];
    for(int i=0;i<n;i++){
        ln=ucln(ln,arr[i]);
        bn=bcnn(bn,arr[i]);
    }
    cout<<"UCLN cua cac phan tu trong mang: "<<ln<<"\nBCNN cua cac phan tu trong mang: "<<bn;
    //samon247
    return 0;
}

program oken;
uses crt;
var a: array [1..100] of integer;
    i,n,uc,bc: integer;
function ucln(a,b: integer):integer;
    begin
        while (a<>b) do
            if a>b then
                a:=a-b
            else
                b:=b-a;
        ucln:=a;
    end;
function bcnn(a,b: integer): integer;
    begin
        bcnn:= a*b div ucln(a,b);
    end;
begin
    clrscr;
    write('Nhap so phan tu cua mang: '); readln(n);
    for i:=1 to n do
        begin
            write('A[',i,']: '); readln(a[i]);
        end;
    uc:=a[1]; bc:=1;
    for i:=1 to n do
        begin
            uc:=ucln(uc,a[i]);
            bc:=bcnn(bc,a[i]);
        end;
    writeln('UCLN cua mang vua nhap: ',uc);
    writeln('BCNN cua mang vua nhap: ',bc);
    readln;
end.