about summary refs log tree commit diff
path: root/2ndary/12/TP-HN-2010/BAI1.PAS
blob: 029201db4094aa7075dacbffa05b6a6ab83da1f7 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
var
  f : text;
  i : 1..30;
  a : array[0..30] of qword;

function gcd(a, b : qword) : qword;
  var tmp : qword;
  begin
    while b > 0 do
      begin
        tmp := b;
        b := a mod b;
        a := tmp
      end;
    gcd := a
  end;

begin
  assign(f, 'bai1.inp');
  reset(f);
  readln(f, a[0]);
  for i := 1 to a[0] do read(f, a[i]);
  close(f);
  for i := a[0] - 1 downto 1 do
    a[i] := a[i] * a[i + 1] div gcd(a[i], a[i + 1]);
  assign(f, 'bai1.out');
  rewrite(f);
  writeln(f, a[1]);
  close(f)
end.