fork download
copy 
  1. program ideone;
  2. var
  3. a,b,c,max,min,sxvaoba :integer;
  4. begin
  5. 	readln(a);
  6. 	readln(b);
  7. 	readln(c);
  8. 	if (a > b) and (b > c) then
  9. 		begin
  10. 			max := a;
  11. 			min := c;
  12. 		end
  13. 	else if (a > c) and (c > b) then
  14. 		begin
  15. 			max := a;
  16. 			min := b;
  17. 		end
  18. 	else if(b > a) and (a > c) then
  19. 		begin
  20. 			max := b;
  21. 			min := c;
  22. 		end
  23. 	else if(b > c) and ( c > a) then
  24. 		begin
  25. 			max := b;
  26. 			min := a;
  27. 		end
  28. 	else if(c > b) and (b>a) then
  29. 		begin
  30. 			max := c;
  31. 			min := a;
  32. 		end
  33. 	else if (c > a) and (a > b) then
  34. 		begin
  35. 			max := c;
  36. 			min := b;
  37. 		end;
  38. 	sxvaoba := max - min;
  39. 	writeln(sxvaoba);
  40. end.
Success #stdin #stdout 0s 4544KB
comments (?)
stdin
copy 
10
30
60
stdout
copy 
50
https://ideone.com/Mtqx39
language:
Pascal (gpc 20070904)
created:
4 years 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!