Написать в Pascal программу, которая сможет сделать следующее:
[tex] x^{1} + x^{2} + x^{3} ... + x^{n} [/tex]

А можно, чтобы помимо ответа еще и выводилась сама функция, типа: x^{1} + x^{2} + x^{3} ... + x^{n} именно такое кол-во раз, сколько задано в n

да

var x, i, n, s: longint; begin s := 0; read(x, n); for i := 1 to n do begin s := s + trunc(power(x, i)); if(i<>n)then write(x,'^',i,'+') else write(x,'^',i); end; writeln; write(s); end.

так?

Да, так. Большое спасибо.

var x, i, n, s: longint;                                      //объявление переменных  begin s := 0;                                                 //изначально сумма равна 0   read(x, n);                                                   //ввод x,n   for i := 1 to n do s := s + trunc(power(x, i));//n раз                                                                     //прибавляем к сумме x в i   //степени(power)   write(s);                                                     //выводим сумму end. 

var x,s,p:real; i,n: integer; beginwrite('x = ');readln(x);write('n = ');readln(n);p:=1; s:=0;for i:=1 to n do  begin p:=p*x; s:=s+p;  write(x,'^',i); if i<>n then write(' + ') else write(' = '); end; writeln(s); end. Пример:x = 2n = 52^1 + 2^2 + 2^3 + 2^4 + 2^5 = 62