uses crt;
var a:array[1..100] of integer;
n,i:integer
begin
writeln('nhap so hoc sinh:');readln(n);
writeln('nhapdiem');
for i:=1 to n do
begin
writeln('a[',i,']');readln(a[i]);
end
for i:=1 to n do writeln('hoc sinh',i,' duoc',a[i],' diem mon tin');
readln
end