Помогите пожалуйста.
Надо сделать по Паскалю а у меня не получается. Выручайте.

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

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