fork download
copy 
  1. program ideone;
  2. Var min1, min2, A, A1, B, B1, C, C1 : integer;
  3. Function min(Var a, b, c : integer) : integer;
  4. begin
  5. 	if (a<b) and (a<c) then min := a
  6. 	else if b<c then min := b
  7. 	else min := c;
  8. end;
  9.  
  10. Procedure max(Var a, b : integer);
  11. begin
  12. 	if (a>b) then writeln(a) 
  13. 	else writeln(b);
  14. end;
  15.  
  16. begin
  17. 	read(A, B, C, A1, B1, C1);
  18. 	min1 := min(A, B, C);
  19. 	min2 := min(A1, B1, C1);
  20. 	max(min1, min2);
  21. end.
Success #stdin #stdout 0s 9120KB
comments (?)
stdin
copy 
5
2
9
1
6
3
stdout
copy 
2
https://ideone.com/lxxyZu
language:
Pascal (gpc 20070904)
created:
8 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!