Cod sursa(job #1001561)

Utilizator IonMosnoiIon Mosnoi IonMosnoi Data 25 septembrie 2013 15:38:16
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.21 kb
Raporteaza aceasta sursa 
program ab;
var a,b:integer;
fis,fo:text;
begin
Assign(fis, 'adunare.in');
  Reset(fis);
readln(fis,a);
readln(fis,b);
 Close(fis);

 Assign(fo, 'adunare.out');
  Rewrite(fo);
  Write(fo,a+b);
  Close(fo);
end.