Вопрос Почему программа высчитывает 120 ? (Паскаль)

[name123123]

var n,s : integer;
begin
n:=3;
s:= 20;
while n <= 25 do
begin
s:=s+20;
n:= n+5;
end;
write (s);
end.

 

[RAQ280]

ну все верно - получается, что n увеличивается на 5 пять раз, соответственно и s увеличивается 5 раз на 20... плюс сначала 20 было.