Câu 1: Viết Chương Trình đc nhập vào đơn giá và số lượng của sản phẩm . Nếu tổng tiền bằng 100000 thì thông báo giảm giá 10% .Nếu bằng 100000 thì giảm giá 5% . Ngược lại thì ko giảm giá. Câu 2: Nhập vào số a bất kì. Thông báo số đó là chẵn hay lẻ. ( Mbn giúp mk 2 câu này nha. Tks)

Câu 1: 

Program BTT;
Uses crt;
Var dg,sl,tt: int64;
Begin
        Clrscr;
        Write('Nhap don gia: '); Readln(dg);
        Write('Nhap so luong hang: '); Readln(sl);

        tt:=dg*sl;
        If tt>100000 then Write('Giam 10%')
        Else
        If tt=100000 then Write('Giam 5%')
        Else Write('Khong giam');
        Readln
End.

Câu 2:

Program BTT;
Uses crt;
Var a: longint;
Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        If a mod 2 <> 0 then Write('So le')
        Else Write('So chan');
        Readln
End.