var x:longint;
n,i:integer;
begin
    writeln('x=');
    readln(x);
    writeln('n=');
    readln(n);
    for i:=1 to n do
     writeln (x,' в ',i,' степени равно ',power(x,i));
end.