Дано: х - натуральное число. число x(в степени n) - 1 простое число. доказать, что х=2. доказать,что n тоже простое число.

Как-то так :)
var a:integer;beginreadln(a);if a>0 then a:=a+1else a:=a-2;writeln(a);end.