Помогите с составлением программ в Паскале,пожалуйста.
Задание во вложении :)

а можно еще к этому блок схему к каждому заданию

Схемы добавлены, изучайте.

спасибо огромное!

1.var a,b,c,x,y:real;beginwrite('a='); readln(a);write('b='); readln(b);write('c='); readln(c);x:=(sqr(sin(a))+cos(b*b))/(3*c)*exp(b-c);y:=(1+exp(ln(c)*(1/3)))*(2*cos(pi-a))/(3*c);writeln('x=',x);writeln('y=',y);end.2.var x,y,f,z:real;beginwrite('x='); readln(x);write('y='); readln(y);if x*y<1/2 then f:=(1+sqr(cos(y-x)))/(x/y+y*y) else f:=sin(ln(x/y));z:=cos(f)*cos(f)*cos(f);writeln('f=',f);writeln('z=',z);end.