fork download
copy 
  1. var
  2.   a, b,x:longint;
  3.  
  4. function reverse(x:longint):longint;
  5. var
  6.   temp, ret:longint;
  7. begin
  8.   temp := x;
  9.   ret := 0;
  10.  
  11.   while (temp > 0) do begin
  12.     ret := (ret * 10) + (temp mod 10);
  13.     temp := temp div 10;
  14.   end;
  15.  
  16.   reverse := ret;
  17. end;
  18.  
  19. begin
  20.   readln(x);
  21.   writeln(a + b);
  22.  end.
  23.  
  24.  
  25.  
  26.  
  27.  
Success #stdin #stdout 0s 9128KB
comments (?)
stdin
copy 
1010 653
stdout
copy 
0
https://ideone.com/TNZRnx
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!