Program Muj program;
Uses CRT;

procedure cara(n:integer);
var i:integer;
begin
for i:=1 to n do write('-');
writeln;
end;

procedure nasobky(n:integer);
var j:integer;
begin
write('|');
for j:=1 to 10 do write(j*n:4);
writeln(' |');
end;

cara(43);
var i:integer;
for i:=1 to 10 do nasobky(i);
cara(43);

end.