Cod sursa(job #276210)

Utilizator DavideDavide Davide Data 10 martie 2009 22:49:08
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.25 kb
var a,b,x:integer;
    f,g:text;

begin
     assign (f,'adunare.in');
     reset (f);
     readln (f,a);
     readln (f,b);
     close (f);
     assign (g,'adunare.out');
     rewrite (g);
     x:=a+b;
     writeln (g,x);
     close (g);
end.