use crt;
var a:array[1..100] of longint;
i,n:longint;
begin
{Thu tu hoc sinh duoc viet theo a[..]}
repeat
write('N= ');
readln(n);
until n>0;
for i:=1 to n do
begin
write('a[',i,']= ');
readln9a[i]);
end;
write('Diem cua ',n,' hoc sinh la ');
for i:=1 to n do
write(a[i],' ');
readln
end.