fork download
copy 
  1. program leska; 
  2. var 
  3. y,x:integer; 
  4. begin 
  5. readln (x); 
  6. writeln (' x = ', x); 
  7. if x<0 then 
  8. y:= -1; 
  9. if x=0 then 
  10. y:= 0; 
  11. if x>0 then 
  12. y:= 1; 
  13.  
  14. writeln ('y = ', y); 
  15. end.
  16.  
  17.  
Success #stdin #stdout 0s 4204KB
comments (?)
stdin
copy 
4
stdout
copy 
 x = 4
y = 1
https://ideone.com/IdfXs5
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!