Решение задачи Begin 18

#include <iostream>
#include <cmath>
using namespace std;
int main(){
	double a,b,c,ac,bc,p;
	cout << "Vvedite koordinatu a: ";
	cin >> a;
	cout << "Vvedite koordinatu b: ";
	cin >> b;
	cout << "Vvedite koordinatu c: ";
	cin >> c;
	ac = abs(a-c);
	bc = abs(b-c);
	p = ac*bc;
	cout << "Dlina AC: " << ac << endl;
	cout << "Dlina BC: " << bc << endl;
	cout << "Proizvedenie dlin AC i BC: " << p;
	return 0;
}

import random

A,C,B = sorted(random.sample(range(-10, 10), 3))

print("A: ", A)
print("B: ", B)
print("C: ", C)
AC = abs(A-C)
BC = abs(B-C)
AC_BC = AC * BC
print("AC: ", AC)
print("BC: ", BC)
print("AC * BC: ", AC_BC)
									

program Begin18;
var
  A,B,C,AC,BC,product: Real;
begin
  Write('Введите значение точки A: ');
  Readln(A);
  Write('Введите значение точки B: ');
  Readln(B);
  Write('Введите значение точки C: ');
  Readln(C);
  AC:=Abs(A-C);
  Writeln('Расстояние отрезка AC равно: ',AC);
  BC:=Abs(C-B);
  Writeln('Расстояние отрезка BC равно: ',BC);
  product:=AC*BC;
  Writeln('Произведение отрезков AC и BC равно: ',product);
end.