Написать программу для нахождения суммы чисел от одной десятой до 1. (паскаль)

Var
  i:integer;
  s:real;
 
begin
  s:=0;
  for i:=1 to 10 do s:=s+i/10;
  Writeln(s)
end.

Результат
5.5