Program BTT;
Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write('Nhap so nguyen bat ki: '); Readln(n);
        If n mod 2 = 0 then inc(n)
        Else dec(n);
        Write('N = ',n);
        Readln
End.

- Thuật toán :

+ Bước 1 : Nhập số n

+ Bước 2 : Nếu n mod 2 = 0 thì n := n + 1

+ Bước 3 : Ngược lại thì n := n - 1

+ Bước 4 : In ra giá trị n

+ Bước 5 : Kết thúc

- Viết chương trình :

uses crt;

var n : integer;

begin

clrscr;

write('Nhap so n = '); readln(n);

if n mod 2 = 0 then n := n + 1;

else n := n - 1;

write('Gia tri n = ', n);

readln

end.