Program pw2;
var p:array[1..100] of integer;
    i,k,x:integer;
 
function step (x,n:integer):integer;
var i,t:integer;
begin t:=x;
for i:=2 to n do x:=x*t; step:=(x);
end;
 
function polinom:integer;
var i,y:integer;
begin y:=0;
for i:=1 to k do y:=y+(p[i]*step(x,p[i]));
if k=1 then polinom:=x else polinom:=y-2;
end;
 
 
begin
writeln ('Vvedite znachenie K'); readln(k);
writeln ('Vvedite znachenie X'); readln(x);
{k:=5; x:=2;   }
for i:=1 to k do p[i]:=i;
writeln('Rezulitat Polinoma raven ',polinom);
readln;
end.