Cod sursa(job #506991)

Utilizator sharky12592Sireanu Roland sharky12592 Data 5 decembrie 2010 13:46:15
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.22 kb
Raporteaza aceasta sursa 
program adunare;
var A,B:longint;
    Ai,AO:text;
begin
ASSIGN (AI,'Adunare_in.txt');
ASSIGN (AO,'Adunare.out.txt');
reset(AI);
readln(AI,A);
readln(AI,B);
close(AI);
rewrite(AO);
Write(AO,A+B);
close(AO);
end.