diff options
Diffstat (limited to 'others/volume1/082.pas')
-rw-r--r-- | others/volume1/082.pas | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/others/volume1/082.pas b/others/volume1/082.pas new file mode 100644 index 0000000..f195aa7 --- /dev/null +++ b/others/volume1/082.pas @@ -0,0 +1,20 @@ +uses clib; + +var + n: int16; + a, g, l: int32; + +begin + read(n, a); + g := a; + l := a; + while n > 1 do + begin + dec(n); + read(a); + g := gcd(g, a); + l := l * a div gcd(l, a); + writeln(a, ' ', g, ' ', l) + end; + writeln(g, ' ', l) +end. |