program bai1;

var a:array[1..100] ò 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.