program calcul_moyenne;
uses wincrt;
type tab=array[1..30] of real;
var n1,n2:integer;t1,t2:tab;moyc1,moyc2:real;
{************* procedure SAISIE ***************}
procedure saisie(var n:integer);
begin
repeat
write('n=');readln(n);
until(n in [5..30]);
end;
{************* procedure REMPLIR ***************}
procedure remplir(var t:tab;n:integer);
var i:integer;
begin
for i:= 1 to n do
begin
repeat
write('T[',i,']=');readln(t[i]);
until(t[i]>=0) and (t[i]<=20);
end;
end;
{************* Fonction MOYENNE ***************}
function moyenne(t:tab;n:integer):real;
var s:real;i:integer;
begin
s:=0;
for i:= 1 to n do
s:=s+t[i];
moyenne:=s/n;
end;
{************* Programme Principal ***************}
begin
saisie(n1);
saisie(n2);
writeln('classe1:');
remplir(t1,n1);
writeln('classe2:');
remplir(t2,n2);
moyc1:=moyenne(t1,n1);
moyc2:=moyenne(t2,n2);
write('moyc1= ',moyc1:8:2,'moyc2= ',moyc2:8:2);
end.