Найти сумму ряда y=х(в 10 степени)+2х(в 9 степени)+3х(в 8 степени)+…..+10х+11- Pascal(Паскаль)

uses crt;
var k:integer;
x,sum,ak:double;
begin
clrscr;
Write('Vvedite x=');readln(x);
sum:=11;ak:=1;
for k:=1 to 10 do
      begin
        ak:=ak*x;
        sum:=sum+(10-k+1)*ak;
     end;
writeln('Summa=',sum:0:4);
readln
end.

uses crt;
var k:integer;
x,sum,ak:double;
begin
clrscr;
Write('Vvedite x=');readln(x);
sum:=11;ak:=1;k:=1;
while k<=10 do
     begin
       ak:=ak*x;
       sum:=sum+(10-k+1)*ak;
       inc(k);
     end;
writeln('Summa=',sum:0:4);
readln
end.

uses crt;
var k:integer;
x,sum,ak:double;
begin
clrscr;
Write('Vvedite x=');readln(x);
sum:=11;ak:=1;k:=1;
repeat
   ak:=ak*x;
   sum:=sum+(10-k+1)*ak;
   inc(k);
until k>10;
writeln('Summa=',sum:0:4);
readln
end.