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

1.
var a,b,c,x,y:real;
begin
write('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;
begin
write('x='); readln(x);
write('y='); readln(y);
if x*ylt;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.