fork download
copy 
  1. var n,m:int64;
  2. begin
  3.      read(n);
  4.      m:=n;
  5.       while (n>0) do
  6.     begin
  7.         write(n mod 10,' ');
  8.         n:=n div 10;
  9.     end;
  10.     while (m>0) do
  11.     begin
  12.         write(m mod 10,' ');
  13.         m:=m div 10;
  14.     end;
  15. end.
  16.  
Success #stdin #stdout 0s 4388KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/JsgcnJ
language:
Pascal (fpc 3.0.4)
created:
6 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!