Question

Введите с клавиатуры целое число. Выведите на экран следующие число, удвоенное значение числа, противоположное число, модуль числа, квадрат числа.

Answer 1

Program abc;
var a,b,c,d,e,f:integer;
begin
readln(a);
b:=a+1;
c:=a*2;
d:=a*(-1);
e:=abs(a);
f:=sqr(a);
writeln('Следующее число=',' ',b,' ','Удвоенное число=',' ',c,' ','Противоположное число=',' ',d,' ','Модуль числа=',' ',e,' ','Квадрат числа=',' ',f);
end.
Вот тебе программа для Pascal что бы проделывать такую ерунду с любым числом:)