Cod sursa(job #290576)

Utilizator cristim_00Mihok Cristian cristim_00 Data 28 martie 2009 12:09:43
Problema A+B Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.28 kb
var f,g:text;
    a,b:longint;
 function suma(a,b:longint):longint;
   begin
    a:+a+b;
    suma:=a;
   end;

 begin
  assign(f,'adunare.in');
  reset(f);
  assign(g,'adunare.out');rewrite(g);
  readln(f,a);
  read(b,f);
  write(g,suma(a,b));
  close(g);close(f);
 end;