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

// 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

$\displaystyle S=x+x^2+x^3+...+x^n=x(1+x+x^2+...+x^{n-1}$

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