Нужно нарисовать рисунок в турбо паскале. "9 класс"

осле того, как текст набран и проверен, желательно придать ему внешний вид, облегчающий восприятие написанного. Для этого различные смысловые части документа принято выделять шрифтами разных гарнитур (например, с засечками и без засечек) или разных начертаний (курсивного, полужирного), отступами, дополнительными межстрочными интервалами (отбивками) и другими

Например, заголовок документа желательно набрать более крупно и разместить его по центру страницы, подписи к рисункам оформить курсивом, а номера страниц разместить в правом нижнем углу каждой страницы.

Присвоение параметров оформления определённым частям документа принято называть форматированием.

Форматирование может быть жёстким или мягким. При жёстком форматировании каждой конкретной части документа — символу, слову, абзацу или странице задаются определённые параметры отображения. При этом форматирование никак не связано с логической структурой документа и объекты, логически относящиеся к одному типу, могут оказаться (и почти всегда оказываются, как показывает практика) оформленными по-разному. Например, одна из подписей к рисункам не будет выделена курсивом, в отличие от остальных.

При мягком форматировании описывается внешний вид не конкретного фрагмента текста, а логической части документа — заголовков, основного текста, сносок, колонтитулов, а для каждой конкретной части документа задаётся только её роль в документе: например, «подпись к рисунку». Описание оформления для определённой логической части документа принято называть стилем.

При использовании стилей необходимо логически разметить документ, т. е. обозначить его структуру. Отмечается, что в документе является заголовком, что основным текстом, а что другими элементами. При этом каждый элемент примет внешний вид в соответствии с тем стилем, который для него определён.

Использование логической разметки документа и мягкого форматирования облегчает работу с большими и сложными по структуре документами и позволяет автоматизировать многие этапы работы с текстом — автоматически создавать оглавления, легко перемещаться по большим документам, быстро изменять оформление и многое другое

Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
  writeln('Введите строны первого треугольника: ');
  read(a1, b1, c1);
  writeln('Введите стороны второго треугольника: ');
  read(a2, b2, c2);
  p1 := (a1 + b1 + c1) / 2;
  p2 := (a2 + b2 + c2) / 2;
  s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
  s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
  if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
                                           else writeln('Неравновеликие');
end.