ví dụ  if n mod 2 = 0 then write (n,' la so chan');

else write ('n,' khong phai la so chan');

program lechan;

uses crt;

var n:integer;

begin

write ('nhap so n la:'); readln(n);

if n mod 2 = 0 then write (n,' la so chan');

else write ('n,' khong phai la so chan');

readln;

end.

VD: if (a>b) and (a>c) then write(a, ' la so lon nhat trong 3 so') else write(a, ' khong phai so lon nhat trong 3 so');

VCT:

program ctpt;

uses crt;

  var, a, b, c: integer;

begin

  clrscr;

  write('Nhap a = '); readln(a);

  write('Nhap b = '); readln(b);

  write('Nhap c = '); readln(c);

  if (a>b) and (a>c) then write(a, ' la so lon nhat trong 3 so') else write(a, ' khong phai so lon nhat trong 3 so');

  readln

end.