Решите, , вторую часть работы. много .

// PascalABC.NET 3.0, сборка 1076
var
  a,b,c,p,s:real;
begin
  Writeln('Введите через пробел стороны треугольника: ');
  Read(a,b,c);
  if (a+b>c) and (a+c>b) and (b+c>a) then begin
    p:=(a+b+c)/2;
    s:=sqrt(p*(p-a)*(p-b)*(p-c));
    Writeln('Площадь треугольника равна ',s)
    end
  else Writeln('Невозможно построить треугольник')
end.
 
Тестовые решения:
Введите через пробел стороны треугольника:
10 15 13.6
Площадь треугольника равна 66.3272183948641

Введите через пробел стороны треугольника:
5 8 20.4
Невозможно построить треугольник

Площадь параллелограмма:

program chet;

var

sq, a , b : integer;

begin

writeln('Введите стороны параллелограмма ');

readln(a,b);

sq := a * b;

writeln('Площадь параллелограмма равна ', sq);

end.

Площадь трапеции:

program chet;

var

sq,h, a , b : real;

begin

writeln('Введите длину оснований ');

readln(a,b);

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

read(h);

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

writeln('Площадь трапеции равна ', sq);

end.

Площадь круга:

program chet;

const

PI = 3.14;

var

sq,r : real;

begin

writeln('Введите радиус круга');

readln(r);

sq := PI * sqr(r);

writeln('Площадь круга равна ', sq);

end.

И площадь ромба:

program chetdsa;

var  

sq,d,g : real;

begin

writeln('Введите чему равны диагонали ромба');

readln(d,g);

sq := (d*g)/ 2;

writeln('Площадь ромба равна ', sq);

end.