Begin30. Дано значение угла a в радианах (0<a<2pi). Определить значение этого же угла в градусах, учитывая, что 180°=pi радианов.
var a, r: real;
begin
  write('Введите значение угла в радианах (0..2*pi) ->');
  readln(r);
 ...

Begin29. Дано значение угла a в градусах (0<a<360). Определить значение этого же угла в радианах, учитывая, что 180°=pi радианов.
var a, r: real;
begin
  write('Введите значение угла в градусах (0..360) ->');
  readln(a);
  ...

Begin28. Дано число A. Вычислить A¹⁵, используя две вспомогательные переменные и пять операций умножения. Для этого последовательно находить A², A³, A⁵, A¹⁰, A¹⁵. Вывести все найденные степени числа A.
var a, a2, a3: real;
begin
  write('Введите a ->');
  readln(a);
  a2:=a*a;
  writeln('a^2 = ', a2:6:2);
  a3:=a2*a;
  writeln('a^3 = ', a3:6:2);
  a:=a2*a3;
  writeln('a^5 = ', a:6:2);
  ...

Begin27. Дано число A. Вычислить A⁸, используя вспомогательную переменную и три операции умножения. Для этого последовательно находить A², A⁴, A⁸. Вывести все найденные степени числа A.
var a, buf: real;
begin
  write('Введите a ->');
  readln(a);
  buf:=a*a;
  writeln('a^2 = ', buf:6:2);
  ...

Begin26. Найти значение функции y=4(x–3)⁶–7(x–3)³+2 при данном значении x.
var x, y: real;
begin
  write('Введите x ->');
  readln(x);
  ...

Begin25. Найти значение функции y=3x⁶–6x²–7 при данном значении x.
var x, y: real;
begin
  write('Введите x ->');
  readln(x);
  ...

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

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