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

#include <iostream>
#include <cmath>
using namespace std;
int main(){
	double a,b,c,ac,bc,s;
	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);
	s = ac+bc;
	cout << "Dlina AC: " << ac << endl;
	cout << "Dlina BC: " << bc << endl;
	cout << "Summa dlin AC i BC: " << s;
	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
AB = abs(A-B)
print("AC: ", AC)
print("BC: ", BC)
print("AC + BC: ", AC_BC)
print("AB: ", AB)
									

program Begin17;
var
  A,B,C,AC,BC,Sum: Real;
begin
  Write('Введите значение точки A: ');
  Readln(A);
  Write('Введите значение точки B: ');
  Readln(B);
  Write('Введите значение точки C: ');
  Readln(C);
  AC:=Abs(A-C);
  Writeln('Расстояние отрезка AC равно: ',AC);
  BC:=Abs(B-C);
  Writeln('Расстояние отрезка BC равно: ',BC);
  Sum:=AC+BC;
  Writeln('Сумма отрезков AC и BC равно: ',Sum);
end.