fork download
copy 
  1. program zad3_1;
  2. 	var a,b : integer; 
  3. begin 
  4.  
  5. 	readln(a);
  6. 	readln(b);
  7. 	if a < b then writeln('-1') 
  8. 	else
  9. 	if a = b then writeln('0')
  10. 	else
  11. 	if a > b then writeln('1')
  12.  
  13. end.
  14.  
Success #stdin #stdout 0s 5360KB
comments (?)
stdin
copy 
1
-1
stdout
copy 
1
https://ideone.com/p41jkz
language:
Pascal (fpc 3.0.4)
created:
1 year 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!