Создайте программу в Pascal abc

Для вычисления

1. Площади треугольника, зная длину его сторон. (По формуле Герона)

2. Площадь трапеции, если известны основания и высоты.

1.

var a, b, c, p, s:real;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

write ('c=') ; readln (c) ;

p: = (a+b+c) / 2;

s:=sqrt (p * (p-a) * (p-b) * (p-c)) ;

writeln ('s=', s:5:2) ;

end.

Пример:

a=3

b=4

c=5

s = 6.00

2.

var a, b, h, s:real;

begin

write ('a=') ; readln (a) ;

write ('b=') ; readln (b) ;

write ('h=') ; readln (h) ;

s: = (a+b) * h/2;

writeln ('s=', s:5:2) ;

end.

Пример:

a=5

b=3

h=2

s = 8.00