АК
Александр Кошевой
а как насчет почитать учебник и сделать самому. вы же не имбецил чтобы не смочь в такое простое задание.
Решается одной строчкой.. .
Program SinX; uses crt;
var i:byte;
Begin clrscr;
for i:=2 to 20 do Writeln(Sin(i):8:5);
end.