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