Составить программу в Паскаль: Ученик в первый день выучил Х английских слов. В каждый следующий день он выучивал на К слов больше, чем в предыдущий. Сколько английских слов он будет знать в N-й день занятий?

var x,k,n,s,i:integer;beginwriteln('x, k, n:');readln(x,k,n);s:=x;for i:=2 to n do begin x:=x+k; s:=s+x; end;writeln('s = ',s);end.Пример:x, k, n: 10 2 5s = 70