Program tin;
var a: array[1..100] of integer;
i, n: integer;
begin
repeat
Write('So hoc sinh: '); readln(n);
until n > 0;
For i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
writeln('Diem cua',n,'hoc sinh la: ');
For i:=1 to n do write(a[i],' ');
Readln
End.