Cod sursa(job #187620)

Utilizator stelistulBora Calin stelistul Data 4 mai 2008 20:46:18
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
program fisiere;
var a,b,s:integer;
    f,g:text;
begin
  assign(f,'adunare.in');
    reset(f);
  assign(g,'adunare.out');
    rewrite(g);
  read(f,a,b);
  s:=a+b;
  write(g,s);
  close(g);
  close(f);
end.