Cod sursa(job #2908443)

Utilizator SADPhoenix8Plesca Adrian SADPhoenix8 Data 3 iunie 2022 15:45:59
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
Raporteaza aceasta sursa 
Program Suma;

var
        b,a,i : integer;
        intrare, iesire : text;
begin
        assign(intrare, 'adunare.in');
        reset(intrare);
        readln(intrare, a);
        readln(intrare, b);
        close(intrare);
        i:=a+b;
        assign(iesire, 'adunare.out');
        rewrite(iesire);
        writeln(iesire, i);
        close(iesire);
        writeln(S);
        readln;
end.