Сделать программы в Паскале: 1. Даны два числа. Отыскать среднее арифметическое

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(Абс(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.