fork download
copy 
  1. program ideone;
  2. var
  3. a, b :integer;
  4. begin
  5.     readln (a);
  6.     readln (b);
  7.     if (a > b)then
  8.     begin
  9.     writeln (a mod 10 + a div 100 + a mod 100 div 10);
  10.     end
  11.     else
  12.     begin
  13.     writeln (b mod 10 + b div 100 + a mod 100 div 10);
  14.     end
  15. end.
Success #stdin #stdout 0s 4524KB
comments (?)
stdin
copy 
695
341
stdout
copy 
20
https://ideone.com/RJ1qAH
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!