Cod sursa(job #243571)

Utilizator claudiubutacuButacu Gheorghe Claudiu claudiubutacu Data 13 ianuarie 2009 17:14:21
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.2 kb
Raporteaza aceasta sursa 
  var  f,g:text;
       a,b:integer;
  begin
  assign(f,'adunare.in');
  reset(f);
  assign(g,'adunare.ou');
  rewrite(g);
  readln(f,a);
  read(f,b);
  close(f);
  write(g,a+b);
  close(g);
  end.