помогите построить задачу Турбо паскаль "Построение домика" плиз

Program BiFi;var i;integer;Beginwriteln('       *       ');writeln('      * *      ');writeln('     *   *     ');writeln('    *     *    ');writeln('   *       *   ');writeln('  *********  ');for i:=1 to 5 do writeln('  *       *  ');writeln('  *********  ');readln; end.