Program Typlex271;

Uses crt;

Var in,t,a,b: int;

Begin

//Cau 7

Writeln('Nhap thang: '); Readln(in);

If (in=12) or (in=10) or (in=8) or (in=7) or (in=5) or (in=3) or (in=1) then writeln('Thang ',in,' co 31 ngay');

If (in=4) or (in=6) or (in=9) or (in=11) then writeln('Thang ', in,' co 30 ngay');

If (in=2) then writeln('Thang 2 co 28 hoac 29 ngay');

//Cau 8

Writeln('Nhap lan luot a,b); Readln(a); Readln(b);

If (a>=0) and (b>=0) then writeln(a,' va ',b, ' cung dau')

else If (a<0) and (b<0) then writeln(a,' va ',b,' cung dau')

else writeln(a,' va ', b khac dau);

//Cau 9

Writeln('Nhap thang: '); Readln(t);

If (0<t) and (t<4) then writeln(t,' thuoc quy I');

If (3<t) and (t<7) then writeln(t,' thuoc quy II');

If (6<t) and (t<10) then writeln(t,' thuoc quy III');

If (9<t) and (t<13) then writeln(t,' thuoc quy IV');

Readln

End.