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 !!!

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.