Viết chương trình nhập vào 1 số nguyên a. cho biết số chẵn liền trước và số lẻ liền kề sau số nguyên a đó? Viết bằng Pascal !!!

uses crt;

var a,b,c:integer;

begin

write('nhap a:');readln(a);

if (a mod 2)=0 then

begin

b:=a-2;

c:=a+1;

writeln('So chan lien trc:',b);

writeln('So le lien ke:',c);

end else 

begin

b:=a-1;

c:=a+2;

writeln('So chan lien trc:',b);

writeln('So le lien ke:',c);

end;

readln;

end.

program sksk;

uses crt;

var a : integer;

begin

clrscr;

write('nhap so nguyen a :');readln(a);

if a mod 2 = 0 then

begin

writeln('so chan lien truoc cua ', a ,' la : ', a - 2);

writeln('so le lien sau cua ', a ,' la : ', a + 1);

end;

if a mod 2 <> 0 then

begin

writeln('so chan lien truoc cua ', a ,' la : ', a - 1);

writeln('so le lien sau cua ', a ,' la : ', a + 2);

end;

readln

end.