не заметил спасибо...
тут вопросик есть..
задача
4) Напечатать в Столбик значения sin2,sin3, … sin 20.

program exe;
uses crt;
var i:integer;
begin clrscr;
for i:=1 to 20 do
writeln (sin(i));
readln;
end.

Он выдаёт хрен знает что в чём беда?