Cod sursa(job #291584)

Utilizator mlazariLazari Mihai mlazari Data 30 martie 2009 02:05:00
Problema A+B Scor 100
Compilator fpc Status done
Runda The Beginners Marime 0.38 kb
Program Adunare;
var a,b : longint;

procedure Citeste;
var Intrare : text;
begin
  assign(Intrare,'adunare.in');
  reset(Intrare);
  readln(Intrare,a);
  readln(Intrare,b);
  close(Intrare);
end;

procedure Scrie;
var Iesire : text;
begin
  assign(Iesire,'adunare.out');
  rewrite(Iesire);
  write(Iesire,a+b);
  close(Iesire);
end;

begin
  Citeste;
  Scrie;
end.