Вычисление функции y=sinx на [1; 2] шаг 0,2

var
  x: real := 1;

begin
  while (x <= 2) do
  begin
    writeln(x:4, ' | ', sin(x));
    x := x + 0.2;
  end;
end.

Вывод:
    1 | 0.841470984807897
 1.2 | 0.932039085967226
 1.4 | 0.98544972998846
 1.6 | 0.999573603041505
 1.8 | 0.973847630878195
    2 | 0.909297426825682