Cod sursa(job #305469)
| Utilizator |  Nedea Adrian adrian_nedea |
Data | 17 aprilie 2009 15:23:18 |
|---|---|---|---|
| Problema | A+B | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
program AB;
var x,y:text;
a,s:longint;
begin
assign (x,'adunare.in');
assign (y,'aduncare.out');
reset (x); rewrite (y);
s:=0;
readln (x,a);
s:=s+a;
read (x,a);
s:=s+a;
write (y,s);
close (x);
close (y);
end.
