Написать программу для ряда задач: 1.Найти сумму трех чисел. 2.Катеты прямоугольного треугольника известны.Найти гипотенузу. 3.Найти среднеарифметическое двух чисел. 4.Найти длину окружности,если известна площадь круга. 5.Какой...

var     a, b, c, p: real;     a1, b1, c1: real;     a2, b2, c2: real; function SideLength(a1, a2, b1, b2: real): real; begin     SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2)); end; begin     writeln('1.Найти сумму трех чисел');     readln(a, b, c);     writeln(a + b + c);          writeln('2.Катеты прямоугольного треугольника известны.Найти гипотенузу.');     readln(a, b);     writeln(sqrt(a * a + b * b));          writeln('3.Найти среднеарифметическое двух чисел.');     readln(a, b);     writeln((a + b) / 2);          writeln('4.Найти длину окружности,если известна площадь круга.');     readln(a);     writeln(sqrt(a / pi) * 2 * pi);          writeln('5.Какой процент составляет число а от числа b.');     readln(a, b);     writeln(a / b * 100);          writeln('6.Найдите площадь треугольника с помощью формулы Герона.');     readln(a, b, c);     p := (a + b + c) / 2;     writeln(sqrt((p - a) * (p - b) * (p - c) * p));          writeln('7.Найдите площадь кольца,если его толщина I см,диаметр внутри круга d см.');     readln(a, b);     c := a + b;     writeln(pi * (c * c - b * b));          writeln('8.Вычислите площадь треугольника заданного координатами вершин.');     readln(a1, a2, b1, b2, c1, c2);     writeln(((a1 - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);          writeln('9.Вычислить длинны сторон треугольника по заданным координатам его вершин.');     a := SideLength(a1, a2, b1, b2);     b := SideLength(c1, c2, b1, b2);     c := SideLength(a1, a2, c1, c2);     writeln(a, ' ', b, ' ', c); end.