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