Cod sursa(job #2817080)

Utilizator nolokDragomir Andrei Theodor Paul nolok Data 12 decembrie 2021 19:56:23
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
PROGRAM AplusB;

VAR
  Fin, Fout: TextFile;
  A, B: DWord;

BEGIN
  Assign(Fin, 'adunare.in');
  Assign(Fout, 'adunare.out');
  Reset(Fin);
  Rewrite(Fout);

  Readln(Fin, A);
  Readln(Fin, B);
  Writeln(Fout, A + B);

  CloseFile(Fin);
  CloseFile(Fout);
END.