помогите решить задачу на паскале: напечатать "столбиком" значения sin2, sin3, ..sin 20.

for i:=2 to 1000 do
begin
writeln( 'sin( ',i,' ) = ', sin( i ) );
end;
все просто и чо париться

Держи результат:

Sin(1) = 0.8414709848
Sin(2) = 0.9092974268
Sin(3) = 0.1411200081
Sin(4) = -0.7568024953
Sin(5) = -0.9589242747
Sin(6) = -0.2794154982
Sin(7) = 0.6569865987
Sin(8) = 0.9893582466
Sin(9) = 0.4121184852
Sin(10) = -0.5440211109
Sin(11) = -0.9999902066
Sin(12) = -0.5365729180
Sin(13) = 0.4201670368
Sin(14) = 0.9906073557
Sin(15) = 0.6502878402
Sin(16) = -0.2879033167
Sin(17) = -0.9613974919
Sin(18) = -0.7509872468
Sin(19) = 0.1498772097
Sin(20) = 0.9129452507

Алексей, а можно мне для 10 000 и косинусы? =)
Спасибо. Теперь в моей жизни появился смысл!

program s;
begin
writeln( 'sin( 2 ) = ', sin( 2 ) );
writeln( 'sin( 3 ) = ', sin( 3 ) );
writeln( 'sin( 4 ) = ', sin( 4 ) );
writeln( 'sin( 5 ) = ', sin( 5 ) );
writeln( 'sin( 6 ) = ', sin( 6 ) );
writeln( 'sin( 7 ) = ', sin( 7 ) );
writeln( 'sin( 8 ) = ', sin( 8 ) );
writeln( 'sin( 9 ) = ', sin( 9 ) );
writeln( 'sin( 10 ) = ', sin( 10 ) );
writeln( 'sin( 11 ) = ', sin( 11 ) );
writeln( 'sin( 12 ) = ', sin( 12 ) );
writeln( 'sin( 13 ) = ', sin( 13 ) );
writeln( 'sin( 14 ) = ', sin( 14 ) );
writeln( 'sin( 15 ) = ', sin( 15 ) );
writeln( 'sin( 16 ) = ', sin( 16 ) );
writeln( 'sin( 17 ) = ', sin( 17 ) );
writeln( 'sin( 18 ) = ', sin( 18 ) );
writeln( 'sin( 19 ) = ', sin( 19 ) );
writeln( 'sin( 20 ) = ', sin( 20 ) );
end.

Для тысячи: http://pastebin.com/QQ0k9Eak
Интересно, люди реально думают, что я эти 20 строчек вбивал вручную?
Ох. Десять тысяч: http://pastebin.com/veMxpRrj

А теперь напечатать "столбиком" значения sin2, sin3, ..sin 1000