Написать програму на Паскале

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программка не работает, обновите версию!

1

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var (fact,sqrtx,s):=(1.0,Sqrt(Абс(x)),0.0);
  for var i:=1 to n do begin
    fact*=i; s+=1/fact+sqrtx
    end;
  Writeln('S=',5*s)
end.

Пример
n= 20
x= 3.18
S=186.916954143565

2

begin
  var n:=ReadInteger('n=');
  var x:=ReadReal('x=');
  var (powi,s):=(1.0,0.0);
  for var i:=1 to n do begin
    powi*=2; s+=(x+Sqr(Sin(i*x)))/powi
    end;
  Writeln('S=',s)
end.

Пример
n= 13
x= 0.59
S=1.12411258214649