Cho mình hỏi về tính đúng đắn của bài này nhé! (Ràng buộc)

[thuyenhoa88]

Program Bai8;
Var x:integer;
Begin
Write('nhap vao 1 thang:');
Readln(x);
If(x>=1) and (x<=12) then
If(x=1) or (x=2) or (x=3) then
Write('Mua xuan')
Else
If(x=4) or (x=5) or (x=6) then
Write('mua he')
Else
If(x=7) or (x=8) or (x=9) then
Write('mua thu')
Else
Write('mua dong')
Else
Write('Ban nhap thang sai roi');
Readln;
End.

[hoainam113]

bạn chạy trên turbo pascal thử xem, nếu test đúng là được rồi, cần gì phải căng mắt ra xem no đúng hay không nhỉ

[arsenal2310]

Test đúng nhưng chắc gì thuật toán đúng hả bạn(anh/chị)
Còn về bài này thì mình đã làm thử và nó đúng:D