На Паскале
написать программу, которая вводит числа А и N и вычисляет А^N

VarA,P:real;N:integer;BeginWrite('A(вещественное число) = ');ReadLn(A);Write('N(целое число) = ');ReadLn(N);P:=1;For N:= 1 to N do    P:=P*A;WriteLn(A,'^',N,' = ',P);End.