Cod sursa(job #373581)

Utilizator Sizzernimic minic Sizzer Data 14 decembrie 2009 12:03:47
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.2 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;
  write(o,s)
end.