Cod sursa(job #1850879)

Utilizator DarinelaAndronovici Darinela Darinela Data 18 ianuarie 2017 23:44:36
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Program adunare;
   var a, b,s :integer;
       fi, fo : text;
begin
    assign(fi, 'adunare.in');
    assign(fo, 'adunare.out');
    reset(fi);
    rewrite(fo);

            readln(fi,a);
            readln(fi,b);

                      s:=a+b;
                      writeln (fo,s);
            readln;
   close (fo);
end.