Uses crt;
var s,a,d,b,i:integer;
begin
d:=1;
a:=5;
while d<10 do<br>begin a:=a+2;
d:=d+1;
end;
write('Слов выучил',a,'за',d,'дней');
readln;end.
Исходя из задачи в первый день он выучил 5 слов, и в каждый новый день выучивал на 2 слова больше. Соответственно если поставить как написано в книжке условие, то знак равенства не подходит, только условие меньше! Ну вроде так. получается за 10 дней = 23 слова.
(Я Вам решил с циклом). Если нужно с условием, то подумайте, для Вас не сложно :)