fork download
copy 
  1. program algorytm;
  2.  
  3. var 
  4.   a, b : longint;
  5. begin
  6. 	readln(a);
  7. 	readln(b);
  8.  
  9. 	if a<b then
  10. 	       writeln('-1')
  11. 	else
  12. 		if a=b then
  13. 			writeln('0')
  14. 		else
  15. 			writeln('1')
  16.  
  17. end.
Success #stdin #stdout 0s 5284KB
comments (?)
stdin
copy 
12
12
stdout
copy 
0
https://ideone.com/QrHIM9
language:
Pascal (gpc 20070904)
created:
2 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!