uses crt;
var a: aray[1..100] of real;
i,n: integer;
tb: real;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write ('nhap diem cua hoc sinh thu ',i,': '); readln (a[i]);
tb:=tb+a[i];
end;
tb:=tb/n;
writeln ('day diem cua nhap: ');
for i:=1 to n do write (a[i]:2:1);
writeln;
writeln ('diem trung binh cua n hoc sinh: ',tb:2:1);
readln;
end.