Пожалуйста посчитайте пожалуйста программу в Pascal:x=y^2-sqrt(y), при y>=0;x=3/y+y, при y<0.Напишите пожалуйста решение программы.