Cod sursa(job #1867)

Utilizator dj10mavMihailescu Andreea Violeta dj10mav Data 15 decembrie 2006 06:34:07
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
program suma;
uses crt;
var f,g:text;
    a,b,s:integer;
begin
    clrscr;
    assign(f,'adunare.in');
    reset(f);
    read(f,a,b);
    s:=a+b;
    close(f);
    assign(g,'adunare.out');
    rewrite(f);
    write(g,s);
    close(g);
end.