var
a, b : integer;
begin
write('введите a ');
readln(a);
write('введите b ');
readln(b);
for var i := a to b do writeln('a^4=', i*i*i*i);
end.
так же степень можно находить через лагорифм, тогда "i*i*i*i" нужно заменить на "exp(ln(i)*4)" результат будет тот же.
var
a, b : integer;
begin
write('введите a ');
readln(a);
write('введите b ');
readln(b);
for var i := a to b do writeln('a^4=', i*i*i*i);
end.
так же степень можно находить через лагорифм, тогда "i*i*i*i" нужно заменить на "exp(ln(i)*4)" результат будет тот же.