Информатики! Помогите! Обязано быть просто! По формуле Герона.

Это Паскаль. Нам это учительница по информатике отдала

Вы желая бы одно из можете сделать?

Мне кажется, формулировка первого задания неправильная просто. Вы не могли бы посодействовать мне со вторым заданием?

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программка не работает, обновите версию!

1

function ГЕРОН(a,b,c:real):real;
begin
  var p:=(a+b+c)/2;
  Result:=Sqrt(p*(p-a)*(p-b)*(p-c))
end;

begin
  var a,b,c,d:real;
  Write('Введите стороны четырехугольника: '); Read(a,b,c,d);
  var e:=Sqrt(a*a+b*b);
  Writeln('Его площадь равна ',ГЕРОН(a,b,e)+ГЕРОН(c,d,e):0:5)
end.

Пример
Введите стороны четырехугольника: 8.5 6.2 14 7.4
Его площадь равна 64.52086

2



begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var (m,s):=(1.0,1.0);
  loop n-1 do begin
    m*=x; s+=m
    end;
  Writeln('S=',s*x)
end.

Пример
n= 4
x= 3
S=120