Cod sursa(job #2281697)

Utilizator danielavornicDaniela Vornic danielavornic Data 12 noiembrie 2018 17:35:25
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program p1;
var f : textfile;
    a, b, i: longint;
begin
    assign(f, 'adunare.in');
    reset(f);
    i:=1;
    while not eof(f) do
    begin
       if i := 1 then read(a);
       if i := 2 then read(b);
    end;

    close(f);

    assign(f, 'adunare.out');
    rewrite(f);

    write(a+b);
    close(f);
end.