uses crt;

var a,b,x,y,C,S,A:integer;

begin

       clrscr;

       write('Nhap a,b,x,y: '); readln(a,b,x,y);

       if (a<=0) and (b<=0) and (x<=0) and (y<=0) then writeln ('Khong co gia tri cua bieu thuc')

      else 

            begin

                  C:=(5*x*x*y*y)/(3*x*y+z*z*z);

                  S:=x*y/(3*x+y);

                  A:=(3*x+y*y)/(x*y+a/(b+3));

                  writeln('Gia tri cua C, S va A lan luot la: ',C,S,A);

             end;

       realdn

end.

begin

writeln('(5*x*5*x*y*y)/3*x*y+z*z',(5*x*5*x*y*y)/3*x*y+z*z);

writeln('(a*a+b*b)/4*a*c+(a/(2*b))',(a*a+b*b)/4*a*c+a/(2*b));

end.