Задание №10. Создай программу. Задача. Осуществить ввод числа с клавиатуры. Возвести введенное число в квадрат, в куб, в 4 и 5 степень. Выдать на экран результат с пояснениями. Воспользоваться только двумя переменными. Например x и y.

Используем только две переменные: x хранит введённое число, а y — очередной результат. Последовательно умножаем число на себя, каждый раз сохраняя результат в y.

program Hello;
var
  x, y: integer;
begin
  readln(x);

  y := x * x;
  writeln('Квадрат числа = ', y);

  y := y * x;
  writeln('Куб числа = ', y);

  y := y * x;
  writeln('Четвёртая степень числа = ', y);

  y := y * x;
  writeln('Пятая степень числа = ', y);
end.

Для больших значений результат может выйти за пределы диапазона типа integer.