Найти сумму последовательности чисел 3,8,13,18,23,28,33,38.(паскаль)

Var i,s:integer;
begin
s:=0;
i:=3;
while i<=38 do
 begin
 s:=s+i;
 i:=i+5;
 end;
writeln('s = ',s);
end.

Пример:
s = 164