Advertisement
Guest User

Untitled

a guest
Dec 18th, 2017
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.21 KB | None | 0 0
  1. program HelloWorld;
  2.  
  3. function m(a, b : real) : real;
  4. begin
  5. m:=(a*a+b*b)/(a*a+5*a*b+4*b*b+4);
  6. end;
  7.  
  8. var
  9. S, T, y: real;
  10.  
  11. begin
  12. Read(s,t);
  13. y:=m(2,s)+m(t,s)+m(2*s,s*t);
  14. writeln(y);
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement