fork(3) download
copy 
  1. program ideone;var
  2. 	a,b,c,P,Z,Q:integer;
  3. 	Function MAX (x,y : integer) : integer;
  4.  	Begin 
  5. 		if x < y then MAX := y 
  6. 		else MAX := x;
  7.  	End;
  8. begin	
  9. 	readln(a);
  10. 	readln(b);
  11. 	readln(c);
  12. 	P := MAX(a,b); 
  13. 	writeln(P);
  14. 	Z := MAX(a+b,a*b);
  15. 	writeln(Z);
  16.  	Q := MAX(MAX(a,b),c);
  17.  	writeln(Q);
  18. end.
  19.  
Success #stdin #stdout 0.01s 5256KB
comments (?)
stdin
copy 
5
3
7
stdout
copy 
5
15
7
https://ideone.com/gjEfTU
language:
Pascal (gpc 20070904)
created:
5 days ago
visibility:
public

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!