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