program p20p116;
uses crt;
var f:text;
    i,j,n:integer;
begin
clrscr;
assign(f,'adunare.txt');rewrite(f);
n:=20;
write(f,'+ ');
for i:=0 to n do write(f,'|',i:3);writeln(f);
write(f,'--');
for i:=0 to n do write(f,'|---');writeln(f);
for j:=0 to n do begin
  write(f,j:2);
  for i:=0 to n do write(f,'|',i+j:3);
  writeln(f);
end;
close(f);
{readkey}
end.