Hãy viết chương trình cho Ví dụ 3 SGK trang 48(Tin học 8,Bài 6:Câu lệnh điều kiện)

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.