lập trình bài toán ĐTB nv có đúng không ?

[sohoriverview]

Program Tinhdiemtrungbinh;
Var T,L,H,DTB:real;
Begin
Writeln('Diem mon toan');Readln(T);
Writeln('Diem mon ly');Readln(L);
Writeln('Diem mon hoa');Readln(H);
DTB:=(T+L+H)/3;
If DTB = 3 Then
Begin
Writeln('Yeu');
end;
If DTB = 6 Then
Begin
Writeln('Kha');
end;
If DTB = 8 Then
Begin
Writeln('Gioi')
end;
Readln;
end.

[thanh_k8_cntt]

Mà đề bài yêu cầu những gì vậy. Mấy lệnh đơn mà bạn đặt trong begin...End; là thừa