Begin23. Даны переменные A, B, C. Изменить их значения, переместив содержимое A в B, B – в C, C – в A, и вывести новые значения переменных A, B, C.
var a, b, c, buf: real;
begin
  write('Введите значения А, B и C ->');
  readln(a, b, c);
  buf:=a;
  a:=c;
  ...

Begin22. Поменять местами содержимое переменных A и B и вывести новые значения A и B.
var a, b, buf: real;
begin
  write('Введите значения А и В ->');
  readln(a, b);
  buf:=a;
...

Begin21. Даны координаты трех вершин треугольника: (x₁, y₁), (x₂, y₂), (x₃, y₃). Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости (см. задание Begin20). Для нахождения площади треугольника со сторонами a, b, c использовать формулу Герона:, где p=(a+b+c)/2 – полупериметр.
var x1, y1, x2, y2, x3, y3, p, s, a, b, c: real;
begin
  write('Введите координаты первой вершины треугольника ->');
  readln(x1, y1);
  write('Введите координаты второй вершины треугольника ->');
  readln(x2, y2);
  write('Введите координаты третьей вершины треугольника ->');
  readln(x3, y3);
  a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
 ...

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);
  ...