Надо сделать по паскалю а у меня не получается. выручайте. разработать алгоритм, который выводит первые четыре степени числа a.

Var a,b,c:integer;
begin
readln(a); //читаем число
c:=a;
writeln(a); //1 степень любого числа- оно само
for b:=1 to 3 do //остальные 3 степени
begin;
a:=a*c;  //умножаем на начальное число
writeln(a);
end;
end.