Разработайте программу паскаль. 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.