Cod sursa(job #420499)

Utilizator ageofandyAndi Dica ageofandy Data 19 martie 2010 15:52:18
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
program suma;
var a,b,c : longint;
    f : text;
begin
     assign(f,'ADUNARE.IN'); reset(f);
     read(f,a,b);
     close(f);
     c:=a+b;
     assign(f,'ADUNARE.OUT'); rewrite(f);
     write(f,c); reset(f);
     close(f);
end.