Лабораторные работы / Программы (Pascal) - 1994 / GIDRA / POWER

program power;
{ЯаЮУаРЬЬР ТЮЧТХФХЭШп Т бвХЯХЭм b зШбЫР a}
           var a,b,c  :real;
begin
           readln(a,b);
           if a>0 then
              c:=exp(b*ln(a))
              else if b=0 then c:=1 else c:=0;
           writeln(c);
end.