Создайте программу в Pascal abc Для вычисления 1. Площади треугольника, зная длину его сторон. (По формуле Герона) 2. Площадь трапеции, если известны основания и высоты.

program zz1;

var a, b, c, S, p, d:real;

begin

write ('введите первую сторону треугольника ');

read (a);

write ('введите вторую сторону треугольника ');

read (b);

write ('введите третью сторону треугольника ');

read (c);

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

if (a+b>c) or (a+c>b) or (c+b>a)

then begin s:=sqrt (d * (d-a) * (d-b) * (d-c)); writeln ('площадь треугольника = ', s:5:2); end

else writeln ('треугольник не существует ');

write ('введите первое основание трапеции ');

read (a);

write ('введите второе основание трапеции ');

read (b);

write ('введите высоту трапеции ');

read (c);

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

writeln ('площадь трапеции = ', s:5:2);

end.