Cod sursa(job #143254)

Utilizator robbyRobertino robert robby Data 26 februarie 2008 09:08:23
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
var a:  array[1..3] of 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];
   writeln(g,a[3]);
   close(f);
   close(g);
end.