Помогите с Паскалем! Циклы)

Question

Не могу понять в чем ошибка, помогите разобраться и исправить! Заранее спасибо) 
 
Вот условие: Составить алгоритм, написать программу возведения числа А в степень В. 
 
Вот моё решение: begin 
 writeln('Введите степень числа'); 
 readln(b); 
 c:=a; 
 if b=0 then c:=1 
 else 
 if b>=2 then for i:=2 to b do c:=a*c 
 writeln('c= ',c:0:2) 
 else writeln('данные неверны'); 
 readln; 
 End. 
 
Нужно только исправить ошибки.

Александр Хаманов · Accepted Answer

program ab; 
uses crt; 
var i,b,c,a:Integer; 
 
begin 
write('Введите степень числа B'); readln(b); 
write('Введите числo A '); readln(a); 
c:=a; 
if b=0 then c:=1 
else 
if b>=2 then 
for i:=2 to b do begin c:=a*c; 
writeln('c= ',c) end; 
writeln('a^b= ',c); 
readln; 
End.

Trend Stayler · Answer

Если ещё актуально, пиши на почту, помогу.