Program Som_Produit_MoyArith;
Type Tab = Array [1..10] of Integer;
Var T : Tab ; n, i, st : Integer;
mt, pt : Real;
Begin
Repeat
Write ('N = ');
Readln (n);
Until
(n>5) and (n<=10);
For i := 1 To n Do
Repeat
Writeln ('T', i, ' = ');
Readln (T[i]);
Until (1<= T[i]) and (T[i] <= 20);
st := 0;
pt := 1;
For i := 1 To n Do
Begin
St := st + T[i];
Pt := pt * T[i];
End ;
Writeln ('Somme = ', st);
Writeln ('Produit = ', trunc (pt));
Writeln ('Moyenne arithmétique = ', st/n:2:2);
End.