Решите в паскале)) даны координаты вершин прямоугольника А(X1, Y1), B(X2,Y2), C(X3,Y3), D(X4,Y4). Вычислите периметр и площадь прямоугольника. 

ты меня просто спасаешь:)

:D

var x1,x2,x3,x4,y1,y2,y3,y4:integer;AB,BC,p,s:real;beginread(x1,y1,x2,y2,x3,y3,x4,y4);AB:=sqrt(sqr(x1-x2)+sqr(y1-y2));BC:=sqrt(sqr(x2-x3)+sqr(y2-y3));p:=2*(ab+bc);s:=ab*bc;write('p=',p,' s=',s);end.

program umn; var  X1,Y1,x2,y2,x3,y3,x4,y4, P,S,l1,l2:real; begin write('Введите координаты вершин треугольника ( A, B, C, D): '); read(X1,Y1,x2,y2,x3,y3,x4,y4); l1 := Sqrt(sqr(x2 - x1) + Sqr(y2-y1)); l2 := Sqrt(sqr(x3 - x2) + Sqr(y3-y2)); S := l1 * l2;P := 2 * (l1+l2); write(S:3:2,' ',P:3:2); end.Если есть вопросы задавайте.