Вычислить значения синусов в интервале от 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.