Составьте на pascal программу возведения в n-ую степень целого числа x

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