Легко и просто берешь рисуешь по клетках его и все готово
Немного не понятно с условиями последней задачи. Написал как понял. См. приложения
1. Выбор участка.
2. Выбор проекта.
3. Получение необходимых разрешений.
4. Выбор материалов.
5. Решение вопросов финансирования строительства.
6. Собственно, проектирование
7. Подготовка участка к
строительству.
8. Поиск исполнителей.
9. Нулевой цикл.
10. Заготовка лесоматериалов.
11. Подготовка строительных материалов из леса и завоз на участок.
12. Сборка стен.
13. Установка кровли.
14. Подвод коммуникаций.
15. Внутренняя отделка.
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.