Помогите написать программу нахождения площади и периметра на Delphi

[_Andruha_]

Народ, помогите пожалуйста решить 3 задачки, для вас думаю не сложно а мне очень нужно)

1.Известны координаты вершин квадрата ABCD: A(x1,y1) и C(x2,y2).Найти его площадь и периметр.

2.Заданы два катета прямоугольного треугольника. Вычислить его площадь и периметр.

3.Известны координаты вершин треугольника ABC: A(x1,y1), B(x2,y2) и C(x3,y3). Найти его площадь и периметр.

Код пишите в теме) Заранее очень-очень благодарен тому кто поможет))

[_Andruha_]

Только каждую как отдельную программу пожалуйста)

[IT-man]

{1.Известны координаты вершин квадрата ABCD: A(x1,y1)
 и C(x2,y2).Найти его площадь и периметр.}
var x1,y1,x2,y2,s,p:real;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
if (x1-x2) = (y1-y2) then begin
s:=sqr(x1-x2);
p:=4*abs(x1-x2);
Writeln('S=',s:6:2);
Writeln('P=',p:6:2);
end
else writeln('ne kvadrat'); 
readln;
end.

{ 2.Заданы два катета прямоугольного треугольника. 
Вычислить его площадь и периметр.}
var
a,b:real;s,p:real;
begin
readln(a);
readln(b);
s:=a*b/2;
p:=a+b+sqrt(a*a+b*b);
Writeln('S=',s:6:2);
Writeln('P=',p:6:2);
readln;
end.

{3 Известны координаты вершин треугольника ABC:
 A(x1,y1), B(x2,y2) и C(x3,y3). Найти его площадь и периметр} 
var
x1,x2,x3,y1,y2,y3:Real;
s,p,pp:real;
st1,st2,st3:real;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
readln(x3);
readln(y3);
st1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
st2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
st3:=sqrt(sqr(x1-x3)+sqr(y1-y3));
p:=st1+st2+st3;
pp:=p/2;
s:=sqrt(pp*(pp-st1)*(pp-st2)*(pp-st3));
Writeln('S=',s:6:2);
Writeln('P=',p:6:2);
readln;
end.