Проверьти плиз

[Arei15]

Вот задание

Трижды протабулировать функцию, используя три различных цикла

f(x) =sin(k*pi/n)/(k*pi/n)

на интервале k ∈ [-6ж3 ] k Δ =1 , учтя при этом, что

sin(0)/0=1

1 способ

program LOL;
var f,z,pi:real;
N,k0,x,k,q:integer;
begin
cls;
writeLn(' N');
readLn(N);
k0:=-6;
pi:=3.14;
for K:=0 to N do
begin
K:=k0+1;
f:=sin(K*pi/N)/K*pi/N;
write('f(',f:8:2,') =',f:8:2);
readln(f);

end;
end.


2 способ

program cicleRepeatTabul;
var f,x,N,k0,k:real;
begin
cls;
writeLn('Введите N');
readLn(N);
k0:=-6;
k:=k0+1;
repeat
f:=sin(k*pi/N)/k*pi/N;
write('f(',x:8:2,') =',f:8:2);
readln(f);
until k>3;
end.

3 способ

program cicleWhileTabul;
var f,k0,k,N,pi:real;
begin
cls;

writeLn('Введите N');
readLn(N);
k0:=-6;
k:=k0+1;
pi:=3.14;
while k <= 3 do

begin

f:= sin(k*pi/N)/k*pi/N;
write('f(',f:8:2,') =',f:8:2);
readln(f);
end;
end.

Вот
ЗараНЕЕ Спасибо