Срочно необходим ответ . Задайте число в интервале от 1 до 100. Составьте...

Question

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

Answer 1

Var
x, tmp:real;
begin
Read(x);
tmp:= x*x;
tmp:= tmp + 2*x;
tmp:= tmp / x;
tmp:= tmp - x;
Writeln(tmp);
end.

Пример:
95
2