вычисление функции    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