Cod sursa(job #27561)

Utilizator ral3xstaic raluca ral3x Data 6 martie 2007 15:19:32
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
var a,b:longint;
    f,g:text;
procedure citire;
begin assign(f,'adunare.in');reset(f);
      assign(g,'adunare.out');rewrite(g);
      readln(f,a);
      read(f,b);
      write(g,a+b);
      close(g)
end;
begin citire
end.