Написать программу Pascal для печати звездочками одной из фигур: в)домика

Предыдущий
вопрос Следующий
вопрос

program star_house;
var
i, j: integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 9 do
begin
if (i = 1) and (j = 5) then
write('*')
else if (i = 2) and ((j = 4) or (j = 6)) then
write('*')
else if (i >= 3) and (j >= 3) and (j <= 7) then
write('*')
else
write(' ');
end;
writeln();
end;
end.