Cod sursa(job #2281723)

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

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

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

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