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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.