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

#include <iostream>
#include <cmath>
using namespace std;
int main(){
	int x1,y1,x2,y2;
	cout << "Vvedite koordinati pervoy tochki (x1,y1) cherez probel: ";
	cin >> x1 >> y1;
	cout << "Vvedite koordinati vtoroy tochki (x2,y2) cherez probel: ";
	cin >> x2 >> y2;
	cout << "Rasstoyaniye mejdu tochkami ravno: " << sqrt(pow(x2-x1, 2)+pow(y2-y1, 2)) << "." << endl;
	return 0;
}

import random
import math

x1,x2 = random.sample(range(-10, 10), 2)
y1,y2 = random.sample(range(-10, 10), 2)

print("Точка 1 (x1, y1): ({0},{1})".format(x1, y1))
print("Точка 2 (x2, y2): ({0},{1})".format(x2, y2))

side1 = abs(x1 - x2)
side2 = abs(y1 - y2)
print("Сторона 1: ", side1)
print("Сторона 2: ", side2)

d = math.sqrt((x1 - x2)**2 + (y1 - y2)**2)
print("Расстояние: ", d)
									

program Begin20;
var
  x1,y1,x2,y2,L: Real;
begin
  Writeln('Введите значение координат певой точки: ');
  Write('Введите значение x: ');
  Readln(x1);
  Write('Введите значение y: ');
  Readln(y1);
  Writeln('Введите значение координат второй точки: ');
  Write('Введите значение x: ');
  Readln(x2);
  Write('Введите значение y: ');
  Readln(y2);
  L:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  Writeln('Расстояние между точками равно: ',L);
end.