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

Question

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

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

Answer 1

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.