Мальчик учит слова. в первый день он выучил 10 слов, каждый следующий день он учил на 5 слов больше, чем в предыдущий. через сколько дней словарный запас мальчика будет более 120 слов

Var S,i:integer;
begin
i:=1;
S:=10;
While S<=120 do
begin
S:=S+(10+i*5);
i:=i+1;
end;
Writeln('На ',i,' день');
end.