Напишите решение задачи в паскале:

Прямоугольник задан координатами левого верхнего и правого нижнего углов. Найти площадь и периметр. (С помощью вспомогательного алгоритма)

Var a, b, x1, x2, y1, y2, s, p: real;

begin

write ('Введите через пробел x1 и y1: ') ;

read (x1, y1) ;

write ('Введите через пробел x2 и y2: ') ;

read (x2, y2) ;

a:=x2-x1;

b:=y1-y2;

s:=a*b;

p:=2 * (a+b) ;

writeln ('S = ', s) ;

writeln ('P = ', p) ;

end.

Делать подобное контрпродуктивно, слишком много ненужного кода.

var x1, x2, y1, y2, s, p: real;

function a (x1, x2: real) : real;

begin

a:=x2-x1;

end;

function b (y1, y2: real) : real;

begin

b:=y1-y2;

end;

begin

write ('Введите через пробел x1 и y1: ') ;

read (x1, y1) ;

write ('Введите через пробел x2 и y2: ') ;

read (x2, y2) ;

s:=a (x1, x2) * b (y1, y2) ;

p:=2 * (a (x1, x2) + b (y1, y2)) ;

writeln ('S = ', s) ;

writeln ('P = ', p) ;

end.