Câu lệnh điều kiện dạng đầy đủ có thể thay thế bằng nhiều câu lệnh dạng thiếu
Vd: tìm số lớn nhất trong 2 số
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln('so lon nhat trong hai so la: ',a)
else if b>a then writeln('so lon nhat trong hai so la: ',b)
else writeln('khong co so lon nhat trong hai so');
readln;
end.