Даны координаты двух противоположных вершин прямоугольника: (x1,,y2).стороны прямоугольника параллельны осям координат.найти периметр и площадь прямоугольника.

Program pryamougolnik;
var x1, x2, y1, y2, a, b, s, p:real;
begin
write ('Введите координату х1 = ');
readln (x1);
write ('Введите координату y1 = ');
readln (y1);
write ('Введите координату х2 = ');
readln (x2);
write ('Введите координату y2 = ');
readln (y2);
a:=abs(x2-x1);
b:=abs(y2-y1);
p:=(a+b)*2;
s:=a*b;
writeln ('Периметр прямоугольника P = ', p);
writeln ('Площадь прямоугольника S = ', s);
end.