Дано число A. Вычислить A8, используя вс переменную и три операции умножения. Для этого последовательно находить

var
A, k: real;

begin
write(' A = ');
readln(A);
writeln('Результат:');
k := A * A; { <-- квадрат числа A }
writeln(' ', A, ' во второй степени: ', k);
k := k * k; { <-- четвертая степень числа A }
writeln(' ', A, ' в четвертой степени: ', k);
k := k * k; { <-- восьмая степень числа A }
writeln(' ', A, ' в восьмой степени: ', k);
readln
end.