Напишите программу, которая вводит натуральные числа a и n и вычисляет a^n. ( с использованием цикла (если это вообще

Function power(x,y: real): real; begin   if x=0 then       power: =0   else       if x> 0 then           power: =exp(ln(x)*y)       else           power: =-exp(ln(abs(x))*y); end;   var   x,y: real; begin   readln(x,y);   writeln(power(x,y)); end.

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы