fork(3) download
copy 
  1. program paskal_dlya_yebkov;
  2. var x,y:real;
  3. begin
  4. 	writeln('vvedite x');
  5. 	readln(x);
  6. 	writeln('vvedite y');
  7. 	readln(y);
  8. 	if x=y then
  9. 	begin
  10. 		writeln('X ravno Y');
  11. 		writeln(x:20:2);
  12. 		writeln(y:20:2);
  13. 	end else
  14. 	if x>y then
  15. 	begin
  16. 		writeln('X > Y');
  17. 		x:=x/2;
  18. 		y:=y/2;
  19. 		writeln(x:20:2);
  20. 		writeln(y:20:2);
  21. 	end else
  22. 	if x<y then
  23. 	begin
  24. 		writeln('X < Y');
  25. 		x:=x+10;
  26. 		y:=y+10;
  27. 		writeln(x:20:2);
  28. 		writeln(y:20:2);
  29. 	end
  30. end.
Runtime error #stdin #stdout 0s 276KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
vvedite x
Runtime error 106 at $080480ED
  $080480ED
  $08063923
https://ideone.com/mgjkL1
language:
Pascal (fpc 3.0.4)
created:
11 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!