Вычислить значения синусов в интервале от 0 до 6.283, шаг 0,31415.
ВСЁ НАДО СДЕЛАТЬ В ПАСКАЛЕ.
ЕСЛИ НЕ СЛОЖНО ОБЪЯСНИТЕ

var
  x: real;
begin
  x := 0;
  while x <= 6.283 do
   begin
    writeln('F(',x:0:1,') = ',sin(x)/x:0:2);
    x := x + 0.31415;
   end;
end.