Прошу прощения, правда, очень виноват, всё решается по формуле суммы арифметической прогрессии. Я совсем не так понял задачу я складывал слова которые были выучены и в первый день и во второй вместе и т.д. Простите.
С While это можно решить так.
Program tt;
var x,h,k,N:integer;
z:real;
Begin
k:=2;
h:=10;
x:=5;
while Nz:=(2*x+(h-1)*k)*0.5;
N:=N+1;
end;
z:=z*10;
Writeln (z);
end.