program ct;
uses crt;
var A:array[1..41] of integer;
i:integer;
begin clrscr;
for i:=1 to 41 do
begin
write('Nhap diem cua hoc sinh thu ',i,': '); readln(A[i]);
end;
for i:=1 to 41 do
begin
write('Diem cua hoc sinh thu ',i,' la: ',A[i]);
end;
readln;
end.
Học tốt!