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

Для возведения более больших чисел, смените тип данных на longint.

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