Cod sursa(job #2281691)

Utilizator danielavornicDaniela Vornic danielavornic Data 12 noiembrie 2018 17:31:23
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.36 kb
Raporteaza aceasta sursa 
program p1;
var f : file of longint;
    a, b, i : longint;
begin
    assign(f, 'adunare.in');
    reset(f);

    i:=1;
    while not eof(f) do
    begin
        if i=1 then readln(a);
        if i=2 then readln(b);
        inc(i);
    end;

    close(f);

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

    write(a+b);

    close(f);
end.