Cod sursa(job #507014)
Utilizator | Data | 5 decembrie 2010 13:55:52 | |
---|---|---|---|
Problema | A+B | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.21 kb |
program adunare;
var A,B:longint;
Ai,AO:text;
begin
ASSIGN (AI,'Adunare.in');
ASSIGN (AO,'Adunare.out');
reset(AI);
readln(AI,A);
readln(AI,B);
close(AI);
rewrite(AO);
Write(AO,A+B);
close(AO);
End.