Создайте программу в 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