erg

program fyr;
var
a :longint;
write ('The next number for the number',a (a+1), 'The previous number for the number', a (a-1));
end.