Решебник

Program pryam;
var x2,x1,s,p,y1,y2,ry,rx:integer;
begin
cls;
read(x1,y1,x2,y2);
if x1>x2 then rx:=x1-x2
else
rx:=x2-x1;
if y1>y2 then ry:=y1-y2
else
ry:=y2-y1;
s:=rx*ry;
p:=2*(rx+ry);
writeln('Периметр прямоугольника равен ',p);
writeln('Площадь прямоугольника равна ',s);
end.