Cod sursa(job #314915)
Utilizator | Data | 13 mai 2009 17:08:00 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.23 kb |
program adunare;
var a,b,c:longint;
fin,fout:text;
begin
assign(fin,'adunare.in'); reset(fin);
assign(fout,'adunare.out'); rewrite(fout);
readln(fin,a); readln(fin,b);
close(fin);
c:=a+b;
writeln(fout,c);
close(fout);
end.