Program Hotboy ;
Uses crt;
Var i,n:integer;
A:array[1..50] of real;
Begin
Clrscr;
Write('nhap so hoc sinh lop do');
Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']:=');
Readln(A[i]);
End;
Writeln('diem cua hoc sinh la:');
For i:=1 to n do
Write('hoc sinh thu ',i,' co diem la',A[i],' ');
Readln
End.