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

++

Может тогда через процедуру? Тут 2 значения

надо именно через это(

Тогда одной функцией не обойдется

сделай с 2 пож(

var a, b, x1, x2, y1, y2, s, p: real;beginwrite('Введите через пробел 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;begina:=x2-x1;end;function b(y1, y2: real): real;beginb:=y1-y2;end;beginwrite('Введите через пробел 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.