Cod sursa(job #69028)

Utilizator mlazariLazari Mihai mlazari Data 30 iunie 2007 20:15:16
Problema A+B Scor 100
Compilator fpc Status done
Runda Arhiva de probleme 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.