составить программу возведения числа А в N степень

Ну нет в задании ограничений на A и N... введите минус 1 в первой степени

Теперь работает

Кстати, оператор *= всё равно только в ABC.NET есть, так что легче и проще было бы так=))Begin Write(ReadReal**ReadReal)End.

var num, deg: integer; res: real; i: byte;beginwrite ('Число: '); readln (num); write ('Степень: '); readln (deg);res := 1;i := 0; while i < abs(deg) do begin         res *=num;        inc(i)end;if deg < 0 then   res := 1 / res;writeln (res:10:5);end.