Sin() и Cos() Опции

[XaMMaX]

Подскажите где ошибка:

program test;
uses graph;
var
 x,y,r,a:integer;
begin
r:=20;
a:=2;
 repeat
  a:=a+2;
  x:=sin(a)*r;
  y:=cos(a)*r;
  putpixel(x,y,white);
 until a:=320;
end.

Знаю в прошлой теме обьяснили, но можете ли вы исправить ошибку и написать правильный скрипт!

[Романтик]

значение от sin cos имеют вещественный тип.

[volvo]

  x:=Trunc(sin(a)*r);
  y:=Trunc(cos(a)*r);