a = 315
b = 210
c = Min(a, b)
L1 = Sequence(If[Mod[a, i] + Mod[b, i] ≟ 0, i, -1], i, 1, c)
MCD = Max(L1)
mcm: a b / MCD
L2 = OrdinaLista(L1)
d = TrovaPosizione(1, L2)
Divisori = Sequence(Element[L2, i], i, d, Length[L2])
text1: "Primo numero introdotto: " + a
text2: "Secondo numero introdotto: " + b
text3: "Divisori comuni: " + Divisori
text4: "Massimo Comun Divisore: " + MCD
text5: "minimo comune multiplo: " + mcm

Tool: Somma lista (command SommaLista)
Somma lista di numeri
Input: L1
Output: a

L1: {0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1}
L2 = Sequence(If[i ≤ Length[L1], Element[L1, i], 0] + If[i + 1 ≤ Length[L1], Element[L1, i + 1], 0] + If[i + 2 ≤ Length[L1], Element[L1, i + 2], 0] + If[i + 3 ≤ Length[L1], Element[L1, i + 3], 0] + If[i + 4 ≤ Length[L1], Element[L1, i + 4], 0] + If[i + 5 ≤ Length[L1], Element[L1, i + 5], 0] + If[i + 6 ≤ Length[L1], Element[L1, i + 6], 0] + If[i + 7 ≤ Length[L1], Element[L1, i + 7], 0] + If[i + 8 ≤ Length[L1], Element[L1, i + 8], 0] + If[i + 9 ≤ Length[L1], Element[L1, i + 9], 0], i, 1, Length[L1], 10)
L3 = Sequence(If[i ≤ Length[L2], Element[L2, i], 0] + If[i + 1 ≤ Length[L2], Element[L2, i + 1], 0] + If[i + 2 ≤ Length[L2], Element[L2, i + 2], 0] + If[i + 3 ≤ Length[L2], Element[L2, i + 3], 0] + If[i + 4 ≤ Length[L2], Element[L2, i + 4], 0] + If[i + 5 ≤ Length[L2], Element[L2, i + 5], 0] + If[i + 6 ≤ Length[L2], Element[L2, i + 6], 0] + If[i + 7 ≤ Length[L2], Element[L2, i + 7], 0] + If[i + 8 ≤ Length[L2], Element[L2, i + 8], 0] + If[i + 9 ≤ Length[L2], Element[L2, i + 9], 0], i, 1, Length[L2], 10)
L4 = Sequence(If[i ≤ Length[L3], Element[L3, i], 0] + If[i + 1 ≤ Length[L3], Element[L3, i + 1], 0] + If[i + 2 ≤ Length[L3], Element[L3, i + 2], 0] + If[i + 3 ≤ Length[L3], Element[L3, i + 3], 0] + If[i + 4 ≤ Length[L3], Element[L3, i + 4], 0] + If[i + 5 ≤ Length[L3], Element[L3, i + 5], 0] + If[i + 6 ≤ Length[L3], Element[L3, i + 6], 0] + If[i + 7 ≤ Length[L3], Element[L3, i + 7], 0] + If[i + 8 ≤ Length[L3], Element[L3, i + 8], 0] + If[i + 9 ≤ Length[L3], Element[L3, i + 9], 0], i, 1, Length[L3], 10)
L5 = Sequence(If[i ≤ Length[L4], Element[L4, i], 0] + If[i + 1 ≤ Length[L4], Element[L4, i + 1], 0] + If[i + 2 ≤ Length[L4], Element[L4, i + 2], 0] + If[i + 3 ≤ Length[L4], Element[L4, i + 3], 0] + If[i + 4 ≤ Length[L4], Element[L4, i + 4], 0] + If[i + 5 ≤ Length[L4], Element[L4, i + 5], 0] + If[i + 6 ≤ Length[L4], Element[L4, i + 6], 0] + If[i + 7 ≤ Length[L4], Element[L4, i + 7], 0] + If[i + 8 ≤ Length[L4], Element[L4, i + 8], 0] + If[i + 9 ≤ Length[L4], Element[L4, i + 9], 0], i, 1, Length[L4], 10)
L6 = Sequence(If[i ≤ Length[L5], Element[L5, i], 0] + If[i + 1 ≤ Length[L5], Element[L5, i + 1], 0] + If[i + 2 ≤ Length[L5], Element[L5, i + 2], 0] + If[i + 3 ≤ Length[L5], Element[L5, i + 3], 0] + If[i + 4 ≤ Length[L5], Element[L5, i + 4], 0] + If[i + 5 ≤ Length[L5], Element[L5, i + 5], 0] + If[i + 6 ≤ Length[L5], Element[L5, i + 6], 0] + If[i + 7 ≤ Length[L5], Element[L5, i + 7], 0] + If[i + 8 ≤ Length[L5], Element[L5, i + 8], 0] + If[i + 9 ≤ Length[L5], Element[L5, i + 9], 0], i, 1, Length[L5], 10)
a = Element(L6, 1)

Tool: posorden
Input: L1, a
Output: d

L1: {1, -1, 3, -1, 5, -1, 7, -1, -1, -1, -1, -1, -1, -1, 15, -1, -1, -1, -1, -1, 21, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 35, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 105, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1}
list1 = Sequence(If[Element[L1, i] < Element[L1, a], 1, 0], i, 1, Length[L1])
list2 = Sequence(If[Element[L1, i] ≟ Element[L1, a], 1, 0], i, 1, a)
b = SommaLista(list1)
c = SommaLista(list2)
d: b + c

Tool: Trova posizione numero (command TrovaPosizione)
Trova la posizione di un numero nella lista
Input: a, L1
Output: b

L1: {-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 1, 3, 5, 7, 15, 21, 35, 105}
L2 = Sequence(If[Element[L1, i] ≟ a, i, Length[L1] + 2], i, 1, Length[L1])
b = If(Min[L2] ≤ Length[L1], Min[L2], 0)

Tool: Ordina lista (command OrdinaLista)
Ordina una lista di numeri
Input: L1
Output: list5

L1: {1, -1, 3, -1, 5, -1, 7, -1, -1, -1, -1, -1, -1, -1, 15, -1, -1, -1, -1, -1, 21, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 35, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 105, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1}
list3 = Sequence(posorden[L1, i], i, 1, Length[L1])
list4 = Sequence(TrovaPosizione[i, list3], i, 1, Length[L1])
list5 = Sequence(Element[L1, Element[list4, i]], i, 1, Length[L1])