Cod sursa(job #222174)

Utilizator Alexandru_LesLes Alexandru Alexandru_Les Data 20 noiembrie 2008 21:50:26
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.24 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 (f,'adunare.out'); rewrite (f);
      write (f,s);
      close (f);
      end.