Нужно написать программу в Pascal

if x>0 then w:=x*sqrt(abs(x-a)) else if x=a then w:=x*sin(a*x) else w:=cos(a*x);