Вопрос напишите программу в паскале

[bullmany007]

написать 2 программы в паскале:

1) r= (max(min(x,y),z))/3

2) тут система уравнений:

{asin^2x+sqrtx, x<=1
y=
{be^x^2, x>1

 

[DreamWorks]

if x>1 then y:=b*exp(x*x) else y:=a*sqr(sin(x)) + sqrt(x);

 

[sapfir]

if x>1 then y:=b*exp(x*x) else y:=a*sqr(sin(x)) + sqrt(x);