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

function x(i: integer): real;
begin
  x := i / (i + sqrt(i)) //некоторая функция для x
end;
 
function y(k: integer): real;
begin
  y := k * sin(k) //некоторая функция для y
end;
 
var
  i, k, m, n: integer;
  F, s, t, a, c: real;
  
begin
  write('n = ');
  readln(n);
  write('m = ');
  readln(m);
  write('a = ');
  readln(a);
  write('c = ');
  readln(c);
  S := 1;
  F := 0;
  for i := 1 to n do begin
    F := F + x(i);
    S := S * a
  end;
  F := F + s;
  t := 1;
  for k := 1 to m do begin
    s := s + y(k);
    t := t * c
  end;
  F := F + s / a / t;
  writeln;
  writeln('Результат: ', F:0:4)
end.