Вывести на экран n первых степеней числа k. Например: при вводе чисел n=3,k=5 На экране должно появиться:
степень: 1, результат: 5
степень: 2, результат: 25
степень: 3, результат: 125

var n,k,s:integer;

begin

s:=1;

write ('Введите число: ');

readln(k);

write ('Введите степень: ');

readln(n);

for n:=1 to n do

begin

s:=s*k;

writeln('степень: ',n,' результат: ',s)

end

end.