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

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.

Если есть вопросы задавайте.

Var x1, x2, x3, x4, y1, y2, y3, y4:integer;

AB, BC, p, s:real;

begin

read (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.