Cod sursa(job #63116)

Utilizator FreeYourMindAndrei FreeYourMind Data 26 mai 2007 19:06:39
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program aplusb;

const fin = 'adunare.in';
     fout = 'adunare.out';

var a,b,s: longint;

procedure load;
 var f: text;
begin
 assign(f, fin); reset(f);
  readln(f,a);
  readln(f,b);
 close(f);
end;

procedure save;
 var f: text;
begin
 assign(f, fout); rewrite(f);
 s:=a+b;
 write(f,s);
 close(f);
end;

begin
 load;
 save;
end.