Напечатать столбиком значения sin2,sin3...sin20

1. uses Math;
2. var
3.    i: integer;
4. begin
5.    for i := 1 to 20 do
6.        Writeln('sin(', i, ') = ', Sin(i));
7. end.