1. представьте информацию в структурном виде так, чтобы ее было легче воспринимать: «озеро байкал находится на юг восточной сибири. длина озера 636 км, ширина 80 км, площадь 31 722 км², объём 23 615, 390 км³. длина береговой линии байкала примерно 2100 км. байкал – самое глубокое озеро на земле, его глубина 1642 м. в байкал впадает 336 рек, в том числе селенга, верхняя ангара, баргузин. вытекает из байкала единственная река*– ангара». представить через дерево

Скорее всего что-то типа этого:

# coding: utf-8
# Python 3.X

'''
Программа просит ввести основание
и прилегающую высоту треугольника,
присваивает введённые значения
переменным a и h, вычисляет площадь
треугольника и печатает значения
a, h и площади треугольника.
Вычисление площади треугольника
оформлено в виде вс
функции.
'''

def trig_area(a, h):
    a = 0.5 * a * h
    if a.is_integer():
        return int(a)
    else:
        return a

a = int(input('Введите основание: '))
h = int(input('Введите прилегающую высоту: '))
print('\nОснование: {}\nВысота: {}\nПлощадь: {}'.format(a, h, trig_area(a, h)))

PascalABC.NET 3.2

uses GraphABC;

begin
  var xc:=300;
  var yc:=250;
  var r:=150;
  var dx:=Trunc(r*cos(Pi/3));
  var dy:=Trunc(r*sin(Pi/3));
  Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
    (xc-dx,yc+dy),(xc+dx,yc+dy));
  r:=r-10;
  dx:=Trunc(r*cos(Pi/3));
  dy:=Trunc(r*sin(Pi/3));
  Pen.Color:=clRed;
  Brush.Color:=Pen.Color;
  Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
    (xc-dx,yc+dy),(xc+dx,yc+dy));
  Font.Color:=clWhite;
  Font.Size:=50;
  Font.Style:=fsBold;
  SetCoordinateOrigin(xc-90,yc-40);
  Write('STOP');
end.