Cod sursa(job #402846)

Utilizator muresan.gabrielMuresan Gabriel muresan.gabriel Data 24 februarie 2010 10:49:31
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
var a,b:integer;
    f,g:text;
function sum(x,y:longint):longint;
begin
        sum:=x+y;
end;
begin
        assign(f,'adunare.in');
        reset(f);
        assign(g,'adunare.out');
        rewrite(g);
        readln(f,a,b);
        write(g,sum(a,b));
        close(f);close(g);
end.