Написать программу вычисления сумм слагаемых вида x+i, где x данное число, а i определяется от 1 до n — Pascal(Паскаль)

var
    sum,i,x,n:integer;
begin
    writeln('Введите x');
    readln(x);
    writeln('Введите n');
    readln(n);
    sum:=0;
    for i:=1 to n do
    sum:=sum +x+i;
    writeln('Результат');
    writeln(sum)
end.