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.

Просто интересно, почему кто-то выполняет такие задания ЛЕТОМ?о_О