Cod sursa(job #373585)

Utilizator Sizzernimic minic Sizzer Data 14 decembrie 2009 12:17:31
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
Raporteaza aceasta sursa 
program suma;
var a,b,s:longint;
    i,o:text;
begin
  assign(i,'adunare.in');
  assign(o,'adunare.out');
  reset(i);
  rewrite(o);
  readln(i,a);
  readln(i,b);
  s:=a+b;
  writeln(o,s);
  close(o)
end.