program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var start_x, step_x, x, y:real;
var i:integer;
begin
    write('Please Enter start_x:');
    readln(start_x);
    write('Please Enter step_x:');
    readln(step_x);
    for i:=1 to 20 do
    begin
        x := start_x + ( i * step_x );
        y := sin(x);
        writeln('sin(', x:8:3, ') =', y:8:3);
    end;
    readln
end.
