Cod sursa(job #864592)

Utilizator infinitiInfiniti infiniti Data 25 ianuarie 2013 13:24:38
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
Raporteaza aceasta sursa 
program adunare;
var a,b:longint; f:text;
begin
    assign(f,'adunare.in'); reset(f);
    readln(f,a); read(f,b); a:=a+b;
    close(f);
    assign(f,'adunare.out'); rewrite(f);
    write(f,a); close(f);
end.