program ex1;
uses crt;
var a,b: integer;
    f1,f2: text;
begin
clrscr;
assign(f1,'D:\TP\BIN\a+b.in');
reset(f1);
assign(f2,'D:\TP\BIN\a+b.txt');
rewrite(f2);
while not eof(f1) do
     begin
      read(f1,a);
      read(f2,b);
     end;
write(a+b);
close(f1);
close(f2);
end.