Guest User

Untitled

a guest
Jun 14th, 2018
93
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.12 KB | None | 0 0
  1. var a,b,c:real;
  2. begin
  3. read(a,b);
  4. c:=a;
  5. if a>b then begin
  6. a:=b;
  7. b:=c;
  8. end;
  9. write(a,' ',b);
  10. a:=a*b/2;
  11. b:=(b+c)/2;
  12. end.
Add Comment
Please, Sign In to add comment