табуляцию

[777pro777]

как написать на паскале табуляцию "(abs(sqrt(sin))*(x))"?

[Mandrivnyk]

А в чем проблема, собственно?
В написании функции или в понимании термина "табуляция"?

[777pro777]

Program Lab2;
Uses Crt;
Var i,kx,ky:Integer;
n:integer;
step:real;
x,y:Real;
Begin
ClrScr;
Write('Введите количество точек ');
Readln(n);
if(n<0)then begin
Writeln('Неправильное значение n. N должно быть >0');
End
Else
Begin
if ( n <> 1 ) Then step:=2*pi/(n-1);
x:=0;
ky:=2;
For i := 1 to n Do
Begin
if ( (i mod 7) = 1) Then
Begin
ky:=ky+2;
kx:=0;
gotoxy(1,ky); Write('x');
gotoxy(1,ky+1); Write('y');
End;
kx:=kx+1;
y:=(abs(sqr(sin))*(x);
gotoxy(kx*10,ky);
Write(x:10:2);
gotoxy(kx*10,ky+1);
Write(y:10:5);
x:=x+step;
End;
End;
Readkey;
End.
что нужно тут исправить я немогу написать программу(((помогите