Cod sursa(job #507014)

Utilizator sharky12592Sireanu Roland sharky12592 Data 5 decembrie 2010 13:55:52
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
Raporteaza aceasta sursa 
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.