antonioband

Program
uses crt;
const a=0.5;
b=6.385;
c=4.201;
var y,z1,z2,z3:real;
begin
clrscr;
z1:=sqr(ln(a+b+c)/ln(10));
z2:=sin(a*a);
z3:=sqrt(2+(14-b)/(2*c));
y:=sin((z1+z2)/z3)/cos((z1+z2)/z3);
write('y=',y:0:2);
readln
end.

Program
uses crt;
const a=9.5;
b=-4.51;
c=2.2093;
var z1,z2,z3,y:real;
begin
clrscr;
z1:=b*b-4*a*c;
z2:=sqr(sin(a));
z3:=sqr(sin(2*sqrt(a)/(b-c)));
y:=z1/(z2+z3);
write('y=',y:0:2);
readln
end.