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

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

Begin2. Дана сторона квадрата a. Найти его площадь S=a².
var a, s: real;
begin
  write('Введите длину стороны квадрата ->');
  readln(a);
  ...

Begin1. Дана сторона квадрата a. Найти его периметр P=4·a.
var a, p: real;
begin
  write('Введите длину стороны квадрата ->');
  readln(a);
  ...