Создать программы в Паскале:

1. Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел.

2. Вычислить расстояние между двумя точками с заданными координатами (х1, у2) и (х2, у2)

Var A, B:real;

Begin

Write ('A = ') ; ReadLn (A) ;

Write ('B = ') ; ReadLn (B) ;

WriteLn ('S. Ar. = ', (A*A*A+B*B*B) / 2) ;

WriteLn ('S. G. = ', Sqrt (Abs (A*B))) ;

End.

Var

x1, y1, x2, y2:real;

Begin

Write ('x1 = ') ;

ReadLn (x1) ;

Write ('y1 = ') ;

ReadLn (y1) ;

Write ('x2 = ') ;

ReadLn (x2) ;

Write ('y2 = ') ;

ReadLn (y2) ;

WriteLn ('R = ', sqrt (sqr (x1-x2) + sqr (y1-y2))) ;

End.