Cod sursa(job #635396)

Utilizator StarPantherTeuca Sergiu StarPanther Data 19 noiembrie 2011 11:07:13
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
program a_b;
VAR f,g:text;
    a,b:integer;
    s:longint;
Begin
        Assign(f,'adunare.in');Reset(f);
        readln(f,a);readln(f,b);
        s:=a+b;
        Assign(g,'adunare.out');Rewrite(g);
        writeln(g,s);
        Close(f);
        Close(g);
end.