СОСТАВИТЬ БЛОК-СХЕМУ И ПРОГРАММУ a)sinx^2+cosx/cosx^3+z/yc б)1+1/x^2-sqrt5+6,7y^2

1)program discuc;uses crt;var x,y,z,c,d,r,q,w:real;beginwriteln ('введите x');readln (x);writeln ('введите y');readln (y);writeln ('введите z');readln (z);writeln ('введите c');readln (c);q:=sin(sqr(x));d:=cos(x)/cos(exp(ln(x)*3));w:=z/y*c;r:=q+d+w;writeln ('r=',r:5:2);readkey;end.2)program bibup;uses crt;var x,y,z,c,v,j:real;beginwriteln ('введите x');readln (x);writeln ('введите y');readln (y);z:=(1/(sqr(x)))+1;c:=sqrt(5);v:=6.7*(sqr(y));j:=z-c+v;writeln ('j=',j:5:2);readkey;end.Это если в Pascal Freeнадеюсь это то