Составление таблицы значений функции у = sin х отрезке [0;3.14] с шагом 0,1.

program E10;
  var х, у: real;
begin
  х: = 0;
  writeln ('x' : 10,'sinx' : 10);
  while x < = 3.14 do
    begin
      y: = sin(x);
      writeln (x : 10,' ' ,y : 7 : 5);
      x: = x + 0.1
    end;
  readln
end.