program ct;

uses crt;

var DT:array[1..20] of real;

      i:integer;

begin clrscr;

   for i:=1 to 20 do

     begin

        writeln('Nhap diem hs thu ',i,': '); readln(DT[i]);

     end;

   for i:=1 to 20 do

     writeln('Diem toan hs thu ',i,' la: ',DT[i]:4:2);

readln;

end.

Học tốt!

var A:array[1..20] of real;
    i: byte;
begin
    for i:=1 to 20 do 
    begin
        write('Nhap diem so cua hoc sinh thu ',i,': ');
        readln(A[i]);
        while (A[i]<0) or (a[i]>10) do
        begin
            write('Nhap lai diem so cua hoc sinh thu ',i,': ');
            readln(A[i]);
        end;
    end;
    writeln('Ket qua: ');
    for i:=1 to 20 do
        writeln(A[i]:0:0);

readln
end.