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 := ( 9.8 / 2.0 ) * x * x; 
        writeln('x=', x:8:3, ', y=', y:8:3);
    end;
    readln
end.