Viết chương trình Nếu tổng số tiền mua từ 100000₫ trở lên khách hàng sẽ được giảm 30% tổng số tiền phải thanh toán trong trường hợp ngược lại những khách hàng mua với tổng xuất hiện không đến 100.000 đồng sẽ chỉ giảm 10% nhớ là ko xuất giá trị trực tiếp mà dùng phép gán

Program BTT;
Uses crt;
Var t,s: real;
Begin
        Clrscr;
        Write('Nhap tien: '); Readln(t);
        If t>=100000 then s:=t*70/100
        Else s:=t*90/100;

        Write('Tien phai tra: ',s:0:2);
        Readln
End.

Chương trình:

Program BTH;
Uses crt;
Var a,b:real;
Begin
Clrscr;
Write('Nhap so tien: ');readln(a);
If a>=100000 then b:=a-(a*30/100) else b:=a-(a*10/100);
Writeln('So tien phai tra la: ',b:4:2);
readln;
End.

Chương trình này chắc chắn đúng luôn nha. ;)