Var
x, VStepeni : integer;
Begin
Write('x='); Readln(x);
VStepeni := x*x*x*x*x*x ;
Writeln('x в 6 степени=', VStepeni);
Readln;
End.
Объяснение:
Я смог
