В формуле имеется модуль, в Паскале он обозначается abs(значение).
program z9;
var x1, x2, x3, y1, y2, y3, x4, y4, S1, S2, S: real;
//Функция вычисления площади треугольника по координатам
function plosad (var x1,y1,x2,y2,x3,y3: real): real;
begin
plosad:=abs(((x1-x3)*(y2-y3) - (x2-x3)*(y1-y3))/2);
end;
Комментарий к ответу: В функции мы используем формулу вычисления длины отрезка по ее координатам: квадратный корень из суммы (x2-x1)^2 и (y2-y1)^2. В программе вначале вводим координаты точек вершин треугольника, затем ищем длину каждого отрезка с помощью функции dlina. Находим периметр P, сложив три полученных результата и выводим его округлив до сотых. Программа содержит вычисление корня, поэтому мы использовали вещественный тип данных.
program z9;
var x1, x2, x3, y1, y2, y3, P, AB, BC, AC: real;
//Функция вычисления длины отрезка
function dlina (var x1,y1,x2,y2: real): real;
begin
dlina:=sqrt(sqr(x2-x1) + sqr(y2-y1));
end;
А. 70
В. 15
С. 2
D. 205
E. 14
F. 90
G. 120
Н. 424
І. 9
1+2=3
3+3=6
6+4=10
10+5=15
15+6=21
21+7=28
28+8=36
Всего у многоножки 8 ножек.