Разработать алгоритм и программу вычисления функции Y в паскале :

Y = P / ^4 sqr (m / b^3) + a ,
B = B cos [4m] + a / 3^sqr(aBm) + a^2,
P = e^Bm, если b<4, bln [m] если 2=b>1,sin^2 [mb] если b<=1