Создать программы в паскале: 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.