Cod sursa(job #685067)

Utilizator VasileAnghelVasile Anghel VasileAnghel Data 20 februarie 2012 21:06:34
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
var a,b,s:longint;
    fi,fo:text;
begin
  assign(fi,'adunare.in');
  reset(fi);
  assign(fo,'adunare.out');
  rewrite(fo);
  readln(fi,a);
  readln(fi,b);
  s:=a+b;
  write(fo,s);
  close(fi);
  close(fo);
end.