Решение должно быть на языке pascal

var
a:real;
b:real;
c:real;
x1,x2,x3:integer;
y1,y2,y3:integer;
p:real;
s:real;
begin
writeln('первые координаты треугольника x ');
readln(x1);
writeln('вторые координаты треугольгика x ');
readln(x2);
writeln('третьи координаты треугольгика x ');
readln(x3);
writeln('четвертые координаты треугольгика y ');
readln(y1);
writeln('пятые координаты треугольгика y ');
readln(y2);
writeln('шестые координаты треугольгика y ');
readln(y3);
a:=sqrt(x2-x1)+ (y2-y1);
b:=sqrt(x3-x2)+(y3-y2);
c:=sqrt(x3-x1)+(y3-y1);
p:=a+b+c;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Периметр = ',p:2:0);
writeln('Площадь=',s:1:2);
readln;
end.

Алгоритм месяц

1Открыть программу paint

2Выбрать  снизу нужный цвет

3Взять инструмент «кривая линия» и нарисовать линию

4Затем оттянуть её (сделать полукругом)

5Взять снова эту линию и повторить то же самое

6Тапнуть по инструменту лупа и проследить, чтобы не было щелей между линиями

7Выполнить заливку »месяца»

Алгоритм цветок

Повторяем пункты 1 и 2

3 Берём инструмент круг и рисуем круг

4 Далее рисуем вокруг него ещё круги (лепестки)

5 выполняем заливку нужным цветом

6 выбираем инструмент линию и рисуем стебель

Алгоритм для колобка

Повторяем пункты 1 и 2

3 Выбираем инструмент круг и рисуем круг

4 Этим же инструментом рисуем глаза и нос

5 Выполняем заливку нужным цветом

6 Берём инструмент кривая линия и рисуем улыбку(растягиваем хоть до ушей)

7 Берём инструмент карандаш и рисуем недостающие части тела