Begin20. Найти расстояние между двумя точками с заданными координатами (x₁, y₁) и (x₂, y₂) на плоскости. Расстояние вычисляется по формуле: .
var x1, y1, x2, y2, d: real;
begin
  write('Введите координаты двух точек: (x1, y1) и (x2, y2) ->');
  readln(x1, y1, x2, y2);
  ...

Begin19. Даны координаты двух противоположных вершин прямоугольника: (x₁, y₁), (x₂, y₂). Стороны прямоугольника параллельны осям координат. Найти периметр и площадь данного прямоугольника.
var x1, y1, x2, y2, a, b, p, s: real;
begin
  write('Введите координаты противоположных вершин прямоугольника: (x1, y1) и (x2, y2) ->');
  readln(x1, y1, x2, y2);
  a:=abs(x1-x2);
  ...

Begin18. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.
var xa, xb, xc, ac, bc, p: real;
begin
  write('Введите координаты точек A, B и C (точка С между А и В) на числовой оси ->');
  readln(xa, xb, xc);
  ac:=abs(xc-xa);
  ...

Begin17. Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.
var xa, xb, xc, ac, bc, s: real;
begin
  write('Введите координаты точек A, B и C на числовой оси ->');
  readln(xa, xb, xc);
  ac:=abs(xc-xa);
  bc:=abs(xc-xb);
 ...

Begin16. Найти расстояние между двумя точками с заданными координатами x₁ и x₂ на числовой оси: |x₂–x₁|.
var x1, x2, d: real;
begin
  write('Введите координаты двух точек на числовой оси ->');
  readln(x1, x2);
  ...

Begin15. Дана площадь S круга. Найти его диаметр D и длину L окружности, ограничивающей этот круг, учитывая, что L=2·pi·R, S=pi·R².
var s, d, l, r: real;
begin
  write('Введите площадь круга ->');
  readln(s);
  r:=sqrt(s/pi);
  ...

Begin14. Дана длина L окружности. Найти ее радиус R и площадь S круга, ограниченного этой окружностью, учитывая, что L=2·pi·R, S=pi·R².
var l, r, s: real;
begin
  write('Введите длину окружности ->');
  readln(l);
  r:=l/(2*pi);
  ...

Begin13. Даны два круга с общим центром и радиусами R₁ и R₂ (R₁ > R₂). Найти площади этих кругов S₁и S₂, а также площадь S₃ кольца, внешний радиус которого равен R₁, а внутренний радиус равен R₂: S₁=pi·(R₁)², S₂=pi·(R₂)², S₃=S₁–S₂.
var r1, r2, s1, s2, s3: real;
begin
  write('Введите радиусы двух кругов ->');
  readln(r1, r2);
  s1:=pi*sqr(r1);
  s2:=pi*sqr(r2);
 ...

Begin12. Даны катеты прямоугольного треугольника a и b. Найти его гипотенузу c и периметр P: .
var a, b, c, p: real;
begin
  write('Введите длины катетов прямоугольного треугольника ->');
  readln(a, b);
  c:=sqrt(sqr(a)+sqr(b));
  ...

Begin11. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
var a, b: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  writeln('Сумма модулей = ', abs(a)+abs(b):6:2);
 ...