Dễ mà nhưng cách tui hơi dài 

Đáp án :

Var 

           a:array[1..100] of integer;

N,i,diemtin:interger;

Begin

Writeln('Nhap so hoc sinh ');

Readln(n);

For i:=1 to n do

Begin

Writeln(' Nhập điểm học sinh thứ ',i);

Readln(a[i]);

End;

For i:=1 to n do 

Writeln(' Điểm học sinh ',i,' la :', a[i]);

Readln;

End.

Cơ bản là vậy có thể trình bày theo cách khác

program ct;

uses crt;

var i,n:integer;

A:array[1..100] of integer;

begin

clrscr;

     write('nhap so hoc sinh:=');readln(n);

     for i:=1 to n do

begin

     write('nhap mang A[',i,']:='); readln(A[i]);

end;

    writeln('so diem vua moi nhap la');

        for i:=1 to n do

             write(A[i],'  ');

readln

end.