Var diemtoan, diemvan, diemanhvan, tongdiem: real;

      n, i: integer;

Begin

writeln('Nhap so hoc sinh:'); readln(n);

tongdiem := 0;

for i := 1 to n do 

begin

writeln('Nhap diem cua hoc sinh thu ', i);

write('Diem van: '); readln(diemvan);

write('Diem toan: '); readln(diemtoan);

write('Diem anh van: '); readln(diemanhvan);

tongdiem := tongDiem + (diemvan*2 + diemtoan*2 + diemanhvan);

end;

writeln('Tong diem cua ', n, ' hoc sinh la: ', tongdiem:4:2);

if tongdiem > 27.25 then writeln('Tong diem cao hon 27.25')

else if tongdiem < 27.25 then writeln('Tong diem thap hon 27.25')

else writeln('Tong diem bang 27.25');

readln;

end.

Chúc bạn học tốt, xin hay nhất ạ