program ct;
uses crt;
var Diem:array[1..20] of real;
i:integer;
begin clrscr;
for i:=1 to 20 do
begin
write('Nhap phan tu thu ',i,': '); readln(Diem[i]);
end;
writeln('Diem toan cua 20 hoc sinh la: ');
for i:=1 to n do
write(Diem[i]:3);
readln;
end.
Học tốt!