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

Program power;

Var x, y: real;

Begin

writeln('Введите число:');

readln(x);

y := x * x;

writeln('Квадрат: ', y);

y := y * x;

writeln('Куб: ', y);

y := y * x;

writeln('4 степень: ', y);

y := y * x;

writeln('5 степень: ', y);

End.