Напишите программу, которая возводит в четвёртую степень введённое с клавиатуры целое число. Составьте алгоритм решения этой задачи из нескольких операторов присваивания.В Pascal.

Предыдущий
вопрос Следующий
вопрос

var
number, result: integer;
begin
write('Введите целое число: ');
readln(number);

result := number number; // возводим число во вторую степень
result := result result; // возводим число в четвёртую степень

writeln('Число ', number, ' в четвёртой степени равно ', result);
end.