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.
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.