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.
|
