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