pascal:
program KetQuaTinHoc;
var
diem1, diem2, diem3, diem4: real;
diemTongKet: real;
begin
readln(diem1, diem2, diem3, diem4);
diemTongKet := (diem1 + diem2 + 2 * diem3 + 3 * diem4) / 7;
if diemTongKet >= 8 then
writeln('Gioi')
else if diemTongKet >= 6.5...