Ответ:

Var

x, VStepeni : integer;

Begin

Write('x='); Readln(x);

VStepeni := x*x*x*x*x*x ;

Writeln('x в 6 степени=', VStepeni);

Readln;

End.

Объяснение:

Я смог помочь!?