Найти сумму чисел ряда каждый элемент которого определяется по формуле (i+5)/i и i изменяется от 1 до 20 с шагом 0.4 показать решение(по pascal)

Program stach;
var i,s:real;
begin
i:=1;
while i<=20 do begin
s:=s+((i+5)/i);
i:=i+0.4;
end;
writeln('s=',s);
end.