p, s:real;
Function Dlina (x1,y1,x2,y2:real):Real; {Функция для вычисления длин сторон}
Var
L:Real;Begin
L:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Dlina:=L
End;
Procedure tochka (t:char; var xt, yt:real); {Процедура для ввода координат точки}
Begin
Writeln(t);
Write ('x='); Readln (xt);
Write ('y='); Readln (yt);
End;
