Cod sursa(job #290577)

Utilizator cristim_00Mihok Cristian cristim_00 Data 28 martie 2009 12:11:49
Problema A+B Scor 100
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(f,b);
  write(g,suma(a,b));
  close(g);close(f);
 end.