program ideone; var j:integer; begin readln(j); writeln('The next number for the number ',j,' is ',j+1,'.'); writeln('The previous number for the number ',j,' is ',j-1,'.'); (* your code goes here *) end.