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. // Конец программы
