program Min;
uses crt;
var tien:longint;
begin
   clrscr;
   writeln('Tong so tien da mua la: '); readln(tien);
   if tien>500000 then
   begin
      writeln('Ban duoc giam 10% tien phai tra va duoc tang 1 kg duong.');
      writeln('Tien phai tra cua ban la: ',tien-(10/100*tien):5:2);
   end
   else
   begin
      writeln('Ban duoc giam 20% tien phai tra va khong duoc tang gi.');
      writeln('Tien phai tra cua ban la: ',tien-(20/100*tien):5:2);
   end;
   readln
end.
   

Bạn xem và chạy thử chương trình xem đã oke chưa nha, bởi vì đề chưa rõ lắm nên mình chỉ làm thế này thôi a ><