с паскалем программа я думаю простая

begin

 var number := readinteger;

 writeln(number + 1);

 writeln(number * 2);

 writeln(-number);

 writeln(abs(number));

 writeln(number * number);

end.

Объяснение:

begin  // Начало программы

 var number := readinteger;  // Считываем число с клавиатуры

 writeln(number + 1);  // Следующее

 writeln(number * 2);  // Удвоенное

 writeln(-number);  // Противоположное

 writeln(abs(number));  // Модуль

 writeln(number * number);  // Квадрат

end. // Конец программы