как нарисовать дом в паскаль

Beginwriteln ('*':7);writeln ('*':6,'*':8);writeln ('*':5,'*':9);writeln ('*':4,'*':10);writeln ('*':3,'*':11);writeln ('*':2,'*':12);writeln ('*************'); (должно быть 13 звездочек) writeln ('*','*':13);  writeln ('*','*':13);  writeln ('*','*':13); writeln ('*','*':13); writeln ('*','*':13); writeln ('*************'); ЧТО БЫ РИСОВАТЬ ДРУГИМИ ФИГУРАМИ ПОДСТАВЬ ЭТИ ФИГУРЫ ЗА МЕСТО ЗВЕЗДОЧЕК