Cod sursa(job #284535)

Utilizator energizerBunnyCicu Mihai energizerBunny Data 21 martie 2009 19:30:33
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
program pascal;
var
 f:text;
 a,b,s:integer;
BEGIN
  assign(f,'adunare.in');
  reset(f);
  readln(f,a);
  readln(f,b);
  close(f);
  s:=a+b;
  assign(f,'adunare.out');
  rewrite(f);
  write(f,s);
  close(f);
END.