Viết chương trình nhập điểm 20 học sinh trong lớp học . In ra điểm đã nhập

program oken;

uses crt;

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

i:byte;

begin

clrscr;

writeln(nhập điểm của 20 bạn học sinh);

for i:=1 to 20 do

begin

write(' nhập điểm bán thứ ',i,': ');

readln(a[i]);

end;

write('điểm của 20 bạn học sinh: ');

for i:=1 to 20 do

write(a[i],' ');

readln;

end.

uses crt;

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

i:byte;

begin

clrscr;

for i:=1 to 20 do 

  begin

write('Diem cua ban thu ',i,'='); readln(diem[i]);

end;

for i:=1 to 20 do 

  write(diem[i]:4:2,' ');

readln;

end.