Решение задачи Proc 5

#include <bits/stdc++.h>

using namespace std;
void func (double x1, double y1, double x2, double y2, double &p, double &s)
{
    int a = abs(x1-x2);
    int b = abs(y1-y2);
    p = 2*(a+b);
    s = a*b;
}
int main()
{



    double x1, y1, x2, y2, p, s;
    for(int i = 0; i < 3; ++i){ // 
        cin >> x1 >> y1 >> x2 >> y2; //вводим данные числа
        func(x1, y1, x2, y2, p, s); // вызываем функцию
        cout << p << " " << s << endl;
    }

    return 0;
}

import random

def RectPS(x1,y1,x2,y2,Result):
    a = abs(x1-x2)
    b = abs(y1-y2)
    print("a = ", a)
    print("b = ", b)
    Result['P'] = 2*(a+b)
    Result['S'] = a*b
    return

x1, x2 = random.sample(range(-10, 10), 2)
y1, y2 = random.sample(range(-10, 10), 2)
print("x1 = ",x1,"; y1 = ",y1)
print("x2 = ",x2,"; y2 = ",y2)
R = {'P' : None, 'S' : None}
RectPS(x1,y1,x2,y2,R)
print('P = ', R['P'])
print('S = ', R['S'])
									

program Proc5;
 
procedure RectPS(x1,y1,x2,y2:Real; var P,S:Real);
begin
 P:=2*(abs(x1-x2)+abs(y1-y2));
 S:=abs(x1-x2)*abs(y1-y2);
end;
 
 
var
  i:Integer;
  x1,y1,x2,y2,P,S:Real;
 
begin
  Write('x1: ');
  Readln(x1);
  Write('y1: ');
  Readln(y1);
  Write('x2: ');
  Readln(x2);
  Write('y2: ');
  Readln(y2);
 
  RectPS(x1,y1,x2,y2,P,S);
  Writeln(P,' ',S);
end.