Какую основную цель имеет семейное законодательство, закрепленное Семейным кодексом РФ, который был введен с 1 марта 1996 г.?

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

Площадь приведена в тыс.км^2, численность населения - в тыс. чел.
program z_11;
var p:array [1..10] of real = (244.1, 357, 132, 43.1, 504.8, 301.2, 312.7, 92.0, 337, 551);
n: array [1..10] of string;
i, j, imin: integer;
x: real;
r: string;
const
k: array [1..10] of real = (58100, 81200, 10300, 5190, 39100, 57200, 38500, 9800, 5060, 57800);
BEGIN
n[1]:='Великобритания'; n[2]:='Германия'; n[3]:='Греция'; n[4]:='Дания'; n[5]:='Испания'; n[6]:='Италия'; n[7]:='Польша'; n[8]:='Португалия'; n[9]:='Финляндия'; n[10]:='Франция';
for i:=1 to 9 do begin
imin:=i;
for j:=i+1 to 10 do
if p[j] x:=p[i];
p[i]:=p[imin];
p[imin]:=x;
r:=n[i];
n[i]:=n[imin];
n[imin]:=r;
end;
writeln ('Отсортированная информация');
for i:=1 to 10 do
writeln (n[i], ' - ', p[i]);
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;

BEGIN
writeln('Приветствую, введите координаты вершин треугольника.');
write('x1 = '); read(x1);
write('y1 = '); read (y1);
write('x2 = '); read(x2);
write('y2 = '); read (y2);
write('x3 = '); read(x3);
write('y3 = '); read (y3);
Writeln ('Координаты: A[', x1, ';', y1, ']; B[', x2, ';', y2, ']; C[', x3, ';', y3, '];');
AB := dlina(x1, y1, x2, y2);
BC:= dlina(x2,y2,x3,y3);
AC:= dlina(x1,y1,x3,y3);
P:=AB+BC+AC;
Writeln ('Периметр равен ', P:0:2);
END