Cod sursa(job #222314)

Utilizator Alexandru_LesLes Alexandru Alexandru_Les Data 21 noiembrie 2008 20:18:48
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.26 kb
Raporteaza aceasta sursa 
Program adunare;
var a,b,s:integer;
    f:text;
begin
      assign (f,'adunare.in'); reset (f);
      read (f,s,b);
      close (f);
      s:=a+b;
      assign (g,'adunare.out'); rewrite (g);
      write (f,s);
      close (f);
      close(g);
      end.