Cod sursa(job #291584)
| Utilizator | Data | 30 martie 2009 02:05:00 | |
|---|---|---|---|
| Problema | A+B | Scor | 100 |
| Compilator | fpc | Status | done |
| Runda | The Beginners | Marime | 0.38 kb |
Program Adunare;
var a,b : longint;
procedure Citeste;
var Intrare : text;
begin
assign(Intrare,'adunare.in');
reset(Intrare);
readln(Intrare,a);
readln(Intrare,b);
close(Intrare);
end;
procedure Scrie;
var Iesire : text;
begin
assign(Iesire,'adunare.out');
rewrite(Iesire);
write(Iesire,a+b);
close(Iesire);
end;
begin
Citeste;
Scrie;
end.