Cod sursa(job #2281715)

Utilizator danielavornicDaniela Vornic danielavornic Data 12 noiembrie 2018 17:47:35
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.32 kb
Raporteaza aceasta sursa 
program p1;
var f : textfile;
    a, b, i, s: integer;
begin
    assign(f, 'adunare.in');
    reset(f);

    for i:=1 to 2 do
    begin
       if i=1 then read(a);
       if i=2 then read(b);
    end;

    close(f);
    s := a+b;
    assign(f, 'adunare.out');
    rewrite(f);
    writeln(s);
    close(f);
end.