Cod sursa(job #428075)

Utilizator alex_pAlexandru Pal alex_p Data 28 martie 2010 19:54:03
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
Program aduna;
Var

  a,b,suma:longint;
  fin:text;
  fout:text;

begin



  assign(fin,'adunare.in');
  reset(fin);
  readln(fin,a);
  readln(fin,b);
  close(fin);

  suma:=a+b;

  assign(fout,'adunare.out');
  rewrite(fout);
  writeln(fout,suma);
  close(fout);

end.