1)дано натуральное число N и действительное Х. Вычислите X(в n степени) где n меняется от 1 до N
2)дано натуральное число N. Вычислить 2(в n cтепени), где n меняется от 1 до N

1 задача:

var n:integer;   
x:real;
begin 
writeln ('Введите число X'); readln(x); 
writeln ('Введите максимальную степень числа X'); readln(n);   
for n:=1 to n do     
begin       
writeln ('x= ',exp(ln(x)*n));     
end;
end.
----------------------
2 задача:

const x=2;
var n:integer;    
begin 
writeln ('Введите максимальную степень числа 2'); readln(n);   
for n:=1 to n do     
begin       
writeln ('x= ',exp(ln(x)*n));     
end;
end.
--------------------
Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О

в ответе X=0.0000000000E+00

что за фигня