program baitap;
uses crt;
var thanhtien:real;
begin
clrscr;
write (' So tien khach da mua la: '); readln (thanhtien);
if thanhtien>=100000 then thanhtien := (70*thanhtien/100)
else thanh tien := (90*thanhtien/100);
writeln (' So tien khach phai tra la: ',thanhtien:4:2);
readln;
end.