Разработайте программу Паскаль. 1)Вычислит площадь треугольника,зная три стороны . 2)Длину отрезка,если его концы заданы координатами А(x;y) В(x;y) АВ-?

№1 var a,b,c,p:real;  begin  writeln('Введите три стороны треугольника');  read(a,b,c);  p:=(a+b+c)/2;  p:=sqrt(p*(p-a)*(p-b)*(p-c));  writeln('Площадь треугольника = ',p);  end.  №2 var x1,y1,x2,y2,d:real;  begin  writeln('Введите координаты точки A');  read(x1,y1);  writeln('Введите координаты точки B');  read(x2,y2);  d:=sqrt(sqr(x2-x1)+sqr(y2-y1));  writeln('Длина отрезка АВ=',d);  end.