Var m1,m2,m3,tb:real;
Begin
Write('Nhap diem mon 1 = ');readln(m1);
Write('Nhap diem mon 2 = ');readln(m2);
Write('Nhap diem mon 3 = ');readln(m3);
tb:=(m1+m2+m3)/3;
If (tb>=5) and (m1>=4) and (m2>=4) and (m3>=4) then write('Ket qua: Dau')
Else write('Ket qua: Rot');
Readln;
End.