Вычислить значение выражения

program asum;
 
var x, p, f0, t, a11, a: real;
    k, p2: integer;
 
begin
  x := 0.224;
  f0 := 0.048;
  t := 8.233;
  p := cos(2 * x / pi);
  a11 := 0; //пока сумма слагаемых равна нулю
  p2 := 1; //это 2^(k - 1), изначально 2^0
  for k := 1 to 4 do
    begin
      //прибавляем текущее слагаемое к сумме
      a11 := a11 + (p / p2) * sqr(sin(2 * p2 * pi * x / t + p2 * f0));
      p2 := p2 * 2 //следующее 2^(k - 1)
    end;
  writeln('a11 = ', a11);
  readln
end.

program asum;
 
procedure s(var a: real; x, t, f0: real);
var p: real;
    k, p2: integer;
begin
  p := cos(2 * x / pi);
  a := 0; //пока сумма слагаемых равна нулю
  p2 := 1; //это 2^(k - 1), изначально 2^0
  for k := 1 to 4 do
    begin
      //прибавляем текущее слагаемое к сумме
      a := a + (p / p2) * sqr(sin(2 * p2 * pi * x / t + p2 * f0));
      p2 := p2 * 2 //следующее 2^(k - 1)
    end;
end;
 
var a11: real;
 
begin
  s(a11, 0.224, 8.233, 0.048);
  writeln('a11 = ', a11);
  readln
end.

program asum;
 
function a11(x, t, f0: real): real;
var p, s: real;
    k, p2: integer;
begin
  p := cos(2 * x / pi);
  s := 0; //пока сумма слагаемых равна нулю
  p2 := 1; //это 2^(k - 1), изначально 2^0
  for k := 1 to 4 do
    begin
      //прибавляем текущее слагаемое к сумме
      s := s + (p / p2) * sqr(sin(2 * p2 * pi * x / t + p2 * f0));
      p2 := p2 * 2 //следующее 2^(k - 1)
    end;
  a11 := s
end;
 
begin
  writeln('a11 = ', a11(0.224, 8.233, 0.048));
  readln
end.