Дано действительное число х не пользуясь никакими другими арифметическими операциями кроме умножения получить х^4, х^12, x^28 за шесть операцийнужно только рассписать, чтобы я могла ввести решение в програму Паскаль.

Program vozvvstep; / /Название программы

var

i, x, n, znach: longint; / /Создание переменных целочисленного типа

begin

i:=1; / / Задаём значение счётчику

readln (x); / / получаем от пользователя значение числа, которое нужно возвести

readln (n); / / получаем от пользователя степень

znach : =1;

while i < = n do / / создаём цикл от 1 до значения степени

begin

znach:=znach*x; / / возводим число x в степень с сохраняем в переменной znach

i:=i+1; / / Увеличиваем счётчик

end;

println (znach); / / Выводим значение

end.