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

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

Begin9. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: .
var a, b, sr: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  ...

Begin8. Даны два числа a и b. Найти их среднее арифметическое: (a+b)/2.
var a, b, sr: real;
begin
  write('Введите два числа ->');
  readln(a, b);
  ...
 

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

Begin6. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V=a·b·c и площадь поверхности S=2·(a·b+b·c+a·c).
var a, b, c, v, s: real;
begin
  write('Введите длины ребер прямоугольного параллелепипеда ->');
  readln(a, b, c);
  v:=a*b*c;
 ...

Begin5. Дана длина ребра куба a. Найти объем куба V=a³ и площадь его поверхности S=6·a².
var a, v, s: real;
begin
  write('Введите длину ребра куба ->');
  readln(a);
  v:=sqr(a)*a;
  ...

Begin4. Дан диаметр окружности d. Найти ее длину L=pi·d.
var d, l: real;
begin
  write('Введите диаметр окружности ->');
  readln(d);
  ...