Cod sursa(job #143255)

Utilizator robbyRobertino robert robby Data 26 februarie 2008 09:09:54
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.3 kb
var a:  array[1..3] of int64;
   b,c:int64;
   f,g:text;
begin
   assign(f,'adunare.in');
   reset(f);
   assign(g,'adunare.out');
   rewrite(g);
   read(f,a[1],a[2]);
   a[3]:=a[1]+a[2];
   b=a[3] div 10;
   c=a[3] mod 10;
   a[3]=b*10+c;
   writeln(g,a[3]);
   close(f);
   close(g);
end.