var n,k,s:integer;
begin
s:=1;
write ('Введите число: ');
readln(k);
write ('Введите степень: ');
readln(n);
for n:=1 to n do
s:=s*k;
writeln('степень: ',n,' результат: ',s)
end
end.
