Как записать функцию на паскале?

[masterlomaster]

Подскажите пожалуйста как записать функцию y=lnsinx/x*x
или так (y=ln от (sinx разделить на икс в квадрате)
Program Tabul1 (input, output);
{Tabul f-sis y=ln*(sin/x*x)}
var
x,y:real;
begin
x:=0;
repeat
y:= ln*sin(x)/x*x;{вот в этом месте, подскажите как правельно записать функцию на языке Паскаль}
writeln (x,y)
x:=x+0.5
until x>3
end.

[GetMax]

y:=Ln(Sin(x)/(х*х))

[Orakul89]

там деление на х в квадрате, то есть выглядеть будет так:

y:=Ln(sin(x)/sqr(x))

или

y:=Ln(sin(x)/(x*x))