Cod sursa(job #5007)

Utilizator shadowALiveshadow shadowALive Data 9 ianuarie 2007 15:20:20
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
program p1;
var s:longint;
    a,b:integer;
    f,g:text;
 begin
  assign(f,'adunare.in'); reset(f);
  assign(g,'adunare.out'); rewrite(g);
  readln(f,a);
  readln(f,b);
  s:=a+b;
  write(g,s);
  close(f); close(g);
  end.