Cod sursa(job #143256)

Utilizator robbyRobertino robert robby Data 26 februarie 2008 09:11:20
Problema A+B Scor 100
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.