program sin;
var
    step: double;
    x: double;
    endBoundary: double;
begin
    writeln('Введите начальную границу');
    readln(x);
    writeln('Введите конечную границу');
    readln(endBoundary);
    writeln('Введите шаг');
    readln(step);
    while (x <= endBoundary) do
    begin
        writeln('sin(', x:9:6 ,') = ', sin(x):9:6);
        x := x + step;
    end;
end.