Cod sursa(job #222300)

Utilizator Alexandru_LesLes Alexandru Alexandru_Les Data 21 noiembrie 2008 20:01:43
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.