Цикл с предусловием

[glupayastudentka]

Дано целое n и действительное x. Вычислить сумму заданного вида:
x+2(x в квадрате)+3(x в кубе)+...n(x в степени n).
Требования к решению задачи:
1)Разработать проверочный тест: задать входные данные, а выходные данные вычислить на обычном калькуляторе.
2)Представить программы для двух видов циклов.

[profi]

Задача простая, ваши наработки. Отмазка "я плохо знаком(а) с математикой и программированием" не прокатит.

[VadEr]

var
  x,sum:real; n,i:integer;
begin
  write('Введите целое n: '); readln(n);
  write('Введите действительное x: '); readln(x);
  sum := 0;

{    вариант №1 }
  for i := 1 to n do
      sum := sum + i*Exp(i*Ln(x));

{    вариант №2
  i := 0;
  while i < n do
    begin
       Inc(i);
       sum := sum + i*Exp(i*Ln(x));
    end;}

  writeln('Результат вычислений: ', sum:8:5);
  readln
end.