Срочно необходим ответ . Задайте число в интервале от 1 до 100. Составьте программу;(Паскаль), которая:
-умножает это число на себя
-складывает результат умножения с удвоенным исходным числом
-делит полученную сумму на исходное число
-вычитает из результата деления исходное число
-выводит на экран окончательный результат

varx, tmp:real;beginRead(x);tmp:= x*x;tmp:= tmp + 2*x;tmp:= tmp / x;tmp:= tmp - x;Writeln(tmp);end. Пример:952