Cod sursa(job #935196)
| Utilizator |  aaaqqqwww Athelfirth |
Data | 2 aprilie 2013 00:00:25 |
|---|---|---|---|
| Problema | A+B | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.25 kb |
program calcul;
var a,b,s:integer; f,g:text;
v:array[1..20] of integer;
begin
assign(f,'adunare.in');reset(f);
assign(g,'adunare.out');rewrite(g);
readln(f,a,b);
s:=a+b;
if s < 2000000 then
write(g,s);
close(f);
close(g);
readln;
end.
