Var k,s,i:integer;
begin
k:=3;
s:=3;
for i:=2 to 7 do
 begin
 k:=k+1;
 s:=s+k;
 end;
writeln('Количество выученных слов = ',s);
end.

Результат:
Количество выученных слов = 42

Пусть в первый день ученик выучил k слов.
Тогда за n дней он выучит


Теперь можно написать программу. Известно, что k=3, n=7.
Ручной счет дает 3×7+6×7/2 = 21+21 = 42.

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (k,n):=(3,7);
  Writeln(k*n+n*(n-1) div 2)
end.

Результат
42

Хорошая иллюстрация случая, когда для решения задачи компьютер не нужен. Так бывает, когда составители заданий думают тем, на чем сидят.