Вычислить y=sin1+sin1.1+sin1.2+…+sin2 — Pascal(Паскаль)

program p1;

var
  y, i: real;

begin
  i := 1;
  y := sin(1);
  while (i < 2.01) do
  begin
    i := i + 0.1;
    y := y + sin(i);
  end;

  writeln('Y= ', y:0:3);
  readln;

end.