Разработайте программу Паскаль.

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.