Cod sursa(job #1790041)

Utilizator adriashkin.07alehandru69 adriashkin.07 Data 27 octombrie 2016 18:36:46
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Program p;
var a,b:integer; f,g:text; s:qword;
begin
      assign(f,'granita.in');
      assign(g,'granita.out');
      reset(f);
      rewrite(g);
      readln(f,a);
      readln(f,b);
      s:=a+b;
      write(g,s);
      close(f);
      close(g);
end.