fork download 
  1. program ideone;
  2.  
  3. var c : char;
  4. 	i1, i2, i3 : integer;
  5.  
  6. begin
  7. 	read(i1);
  8. 	read(i2);
  9. 	read(i3);
  10. 	read(c);
  11. 	writeln('O que li foi: ', i1,', ', i2, ', ', i3, ', #', ord(c), ' aka "', c, '".');
  12.  
  13. 	read(i1);
  14. 	read(c);
  15. 	read(i2);
  16. 	read(i3);
  17. 	writeln('O que li foi: ', i1,', ', i2, ', ', i3, ', #', ord(c), ' aka "', c, '".');
  18.  
  19. 	read(i1);
  20. 	readln(i2, i3);
  21. 	read(c);
  22. 	writeln('O que li foi: ', i1,', ', i2, ', ', i3, ', #', ord(c), ' aka "', c, '".');
  23. end.
Success #stdin #stdout 0s 276KB
comments (?)
stdin 
9 1 1
1 1
2
5 6 7
stdout 
O que li foi: 9, 1, 1, #10 aka "
".
O que li foi: 1, 1, 2, #32 aka " ".
O que li foi: 5, 6, 7, #26 aka "".
https://ideone.com/w8tEqR
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!