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.

Đây nha bạn

Các cấu trúc rẽ nhánh được thể hiện bằng câu lệnh điều kiện.

- Cú pháp dạng thiếu: if < điều kiện > then < câu lệnh>;

Nếu điều kiện thoản mãn, chương trình sẽ thực hiện các câu lệnh sau từ khóa then.

- Cú pháp dạng đủ: if < điều kiện> then <câu lệnh 1> else < câu lệnh 2>;

Nếu điều kiện thoản mãn, chương trình sẽ thực hiện các câu lệnh 1 sau từ khóa then. Nếu không, chương trình sẽ thực hiện câu lện 2.

- Ví dụ 1: viết chương trình yêu cầu người dùng nhập 1 số từ bàn phím, nếu số này là số chẵn thì in ra thông báo, ngược lại in ra thông báo là số lẻ.

   + B1: nhập số a;

   + B2: nếu a mod 2 = 0 thì thông báo là số chẵn

   + B3: nếu không thì thông báo a là số lẻ

vd

if x > 5; then a:=b;

cif x > 5 then; a:=b;

 if x > 5 then a:=b; m:=n;

 if x > 5 then a:=b; else m:=n;

if n > 0 then begin a:=0; m:=-1 end else c:=a;