Ответ:

var

 s, i : integer;

begin

 i := 17;

 s := 0;

 while i <= 110 do begin

   writeln((i/17):2:2);

   if (i>9) and (i<100) then

     s := s + i;

   inc(i);

 end;

 writeln('Summ=', s);

end