Паскаль: Вычислить значение у при заданном значении x:

If ( x >= 0 ) and ( x <= 1 )  write( x*x- x )else  if ( x < 0 ) or ( x > 0 )     write ( x*x - sin (3,14*x*x) );P. S. На сколько я знаю, в Паскале есть функция sin ()