Cod sursa(job #11069)

Utilizator QbyxEros Lorand Qbyx Data 30 ianuarie 2007 14:15:18
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
program adunare;
Var
  a, b, c: longint;
  f: text;
begin
  Assign(f, 'adunare.in');
  Reset(f);
  Read(f, a);
  Read(f,b);
  Close(f);
  c := a + b;
  Assign(f, 'adunare.out');
  Rewrite(f);
  WriteLn(f, c);
end.