Untitled

program fred;
uses crt;

var
   c, l, i, j : integer;

begin
  c:=1;
      l:=1;

      for i := 1 to 10 do
          write(i, '  ');

      writeln;
      for i:= 1 to 10 do
          begin
               for j:=1 to 10 do
                   begin
                        gotoxy(c,l+1);
                        write('_');
                        c:=c+3;

                        if (j = 10) then
                           writeln(' ', i:3);
                   end;
                l:=l+1;
                c:=1;
           end;

        readln;
end.