Chương trình:
uses crt;
var n: integer;
begin
clrscr;
Write ('Nhap n='); readln (n);
if (n mod 2 = 0) then write ('n la so chan') else write ('n la so le');
readln;
end.
a) Kết quả hiện lên màn hình sẽ là: n la so le
b) Kết quả hiện lên màn hình sẽ là: n la so chan