:дано натуральное n. написать программу вычисления а в степени n. на языке c++ или на паскале.(через циклы)

Var
a,n,i,k:integer;
begin
write('Введите число: ');
readln(a);
write('Введите степень: ');
readln(n);
k:=1;
for i:= 1 to n do k:=k*a;
writeln(a,'^',n,' = ',k);
end.