Cod sursa(job #1850879)
Utilizator | Data | 18 ianuarie 2017 23:44:36 | |
---|---|---|---|
Problema | A+B | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.33 kb |
Program adunare;
var a, b,s :integer;
fi, fo : text;
begin
assign(fi, 'adunare.in');
assign(fo, 'adunare.out');
reset(fi);
rewrite(fo);
readln(fi,a);
readln(fi,b);
s:=a+b;
writeln (fo,s);
readln;
close (fo);
end.