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

#include <iostream>
#include <cmath>
using namespace std;
int main(){
	double x1,y1,x2,y2,a,b,p,s;
	cout << "Vvedite koordinatu x1: ";
	cin >> x1;
	cout << "Vvedite koordinatu y1: ";
	cin >> y1;
	cout << "Vvedite koordinatu x2: ";
	cin >> x2;
	cout << "Vvedite koordinatu y2: ";
	cin >> y2;
	a = abs(x1-x2);
	b = abs(y1-y2);
	p = (a+b)*2;
	s = a*b;
	cout << "Perimetr: " << p << endl;
	cout << "Ploshyad': " << s;
	return 0;
}

import random

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

print("(x1, y1): ({0},{1})".format(x1, y1))
print("(x2, y2): ({0},{1})".format(x2, y2))
side1 = abs(x1 - x2)
side2 = abs(y1 - y2)
P = 2 * (side1 + side2)
S = side1 * side2
print("Сторона 1: ", side1)
print("Сторона 2: ", side2)
print("Периметр: ", P)
print("Площадь: ", S)
									

program Begin19;
var
 x1,y1,x2,y2,P,S: Real;
begin
 Writeln('Введите значение координат певой точки прямоугольника: ');
 Write('Введите значение x: ');
 Readln(x1);
 Write('Введите значение y: ');
 Readln(y1);
 Writeln('Введите значение координат второй точки прямоугольника: ');
 Write('Введите значение x: ');
 Readln(x2);
 Write('Введите значение y: ');
 Readln(y2);
 P:=2*(abs(x1-x2)+abs(y1-y2));
 Writeln('Периметр прямоугольника равен: ',P);
 S:=abs(x1-x2)*abs(y1-y2);
 Writeln('Площадь прямоугольника равна: ',S);
end.