Giúp em với ạ Viết chương trình nhập vào điểm các bạn lớp em gồm 5 môn: Toán, Tin, lý, hóa, Anh văn. (điểm là một số thực từ 0 đến 10 ). Sau đó in ra

Giúp em với ạ
Viết chương trình nhập vào điểm các bạn lớp em gồm 5 môn: Toán, Tin, lý, hóa, Anh văn. (điểm là một số thực từ 0 đến 10 ). Sau đó in ra màn hình:
Điểm trung bình của tất cả các bạn.(Điểm trung bình bằng tổng điểm của 5 môn đã nhập và chia 5 và làm tròn đến chữ số thập phân thứ nhất) .
Các điểm trung bình từ 5.0 trở lên.
Các điểm trung bình nhỏ hơn 5.0 .
Điểm trung bình của bạn học giỏi nhất lớp.
Điểm trung bình của bạn học kém nhất lớp.
Em hãy hoàn thiện chương trình sau và gõ vào máy tính:
Program Hotenhocsinhlop;
uses crt;
var n,i,j: integer;
cao, thap: real;
Toan, van, ly, sinh, hoa, DTB: array[1..100] of real;
begin
clrscr;
Write(‘Nhap vao so hoc sinh cua lop em: ‘); Readln(n);
Writeln(‘Nhap diem cho cac ban lop em:’);
For i:=1 to n do
begin
Writeln(‘Nhap diem cho ban thu ‘,i, ‘ : ‘);
Write(‘Nhap diem toan: ‘); Readln(Toan[i]);
Write(‘Nhap diem van: ‘) ; Readln(van[i]);
Write(‘Nhap diem ly: ‘) ; Readln(……);
Write(‘Nhap diem sinh: ‘); Readln(……..);
Write(‘Nhap diem hoa: ‘) ; Readln(…….);
DTB[i]:=(Toan[i]+van[i]+….+…..+…..)/5;
end;
{a}Writeln(‘a. Diem trung binh cua tat ca cac ban lop em la: ‘);
For i:=1 to n do
Writeln(‘Diem trung binh cua ban thu ‘,i, ‘la: ‘, DTB[i]:4:1);
{b}Writeln(‘b. Diem trung binh cua tat ca cac ban lop em co DTB tu 5.0 tro len la: ‘);
For i:=1 to n do if DTB[i]>=5.0 then
Writeln(‘Diem trung binh cua ban thu ‘,i, ‘la: ‘, ………);
{c}Writeln(‘Diem trung binh cua tat ca cac ban lop em co DTB duoi 5.0 la: ‘);
For i:=1 to n do if DTB[i]<5.0 then Writeln('Diem trung binh cua ban thu ',i, 'la: ', ...........); {d,e} cao:=DTB[1]; thap:=DTB[1]; for i:=2 to n do begin if caoDTB[i] then thap:= DTB[i];
end;
Writeln(‘d. Diem trung binh cua ban hoc gioi nhat lop em la: ‘, ………….);
Writeln(‘ e. Diem trung binh cua ban hoc kem nhat lop em la: ‘, ………….);

Readln;
end.