Cod sursa(job #120852)
| Utilizator |  Ionita Bogdan Constantin bodyionita |
Data | 6 ianuarie 2008 21:29:09 |
|---|---|---|---|
| Problema | A+B | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.2 kb |
var a,b:integer;s:longint; f,g:text;
begin
assign(f,'adunare.in');reset(f);
assign(g,'adunare.out');rewrite(g);
readln(f,a);
read(f,b);
s:=a+b;
if s<2000000 then write(g,s);close(f);close(g);
end.