Question

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

Answer 1

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