Calcolare perimetro e area di un triangolo equilatero
	Calcolare la distanza ASCII tra due caratteri
	Individuare il minimo, il massimo e la media tra tre numeri reali
	Disegnare un cerchio
	Ordinare i valori di 5 variabili intere

Dato il seguente codice

Function XXX(A, B: Longint): Longint;
Var R: Longint;
Begin
  Repeat
    R:=A Mod B;
    A:=B;
    B:=R;
  Until(R = 0);
  XXX:=A;
End;

	Commentalo riga per riga
	Fai due esempi numerici significativi del suo funzionamento

Progetta e realizza un sottoprogramma in linguaggio TP6 che calcoli il prodotto tra due valori interi, immaginando di possedere solamente le operazioni di addizione e sottrazione. Sono richiesti i passi: analisi con esempio, intestazione commentata, algoritmo a parole, codifica commentata.