составить программу табулирования функции на отрезке [-8;8] с шагом 2 для функции y=sin (1/(x+9))

Question

составить программу табулирования функции на отрезке [-8;8] с шагом 2 для функции y=sin (1/(x+9)) 
помогите плиз.. . Начало вот такое, а дальше? 
Program A; 
const h=2; 
var x, y, n: real; 
begin 
x:=-8; 
n:=8; 
while x<=n do 
begin 
y:=sin (1/(x+9));

Если кому надо, то вот так) ) 
Program A; 
var x, y, n: real; 
begin 
x:=-8; 
n:=8; 
while x<=n do 
begin 
y:=sin (1/(x+9)); 
writeln ('y',y); 
x:=x+2; 
end; 
readln 
end.

Павел · Accepted Answer

Program A; 
uses crt; 
const h=2; 
var x, y, n: real; 
begin 
clrscr; 
x:=-8; 
n:=8; 
writeln('----------------'); 
writeln (' x y '); 
writeln('----------------'); 
while x<=n do 
begin 
y:=sin (1/(x+9)); 
writeln (x:3:0,y:8:2); 
x:=x+h; 
end; 
writeln('----------------'); 
writeln('Конец '); 
end.