BT1:

uses crt;
var a,b:longint; s:real;
begin
clrscr;
   write('Gia tien 2 san pham: ');readln(a,b);
   s:=(a+b)-((a+b)/100*10);
   if s<15000000 then s:=s-s/100*2 else s:=s-s/100*4;
   writeln(s:0:2);
readln
end.

BT2:

uses crt;
var n:longint; s:real;
begin
clrscr;
   write('Nhap so hop khau trang: ');readln(n);
   if n>9 then s:=n*200000 else if n mod 2=0 then s:=n*22000 else s:=n*2250000;
   writeln(s:0:0);
readln
end.

uses crt;

var n1,n2,tien:longint;

BEGIN

           clrscr;

            writeln('Hay nhap gia nien yet cua 2 san pham:');

            write('Sp thu nhat:');            readln(n1);

            write('Sp thu hai:');               readln(n2);

            n1 := (n1*90) div 100;

            n2 := (n2*90) div 100;

            tien := n1+n2;

            if tien < 15000000 then  tien := (tien*98) div 100;

            if (tien>=15000000) and (tien<=40000000) then tien:=(tien*96) div 100;

            write('Tien phai tra:',tien);

            readln

END.