!!!помогите!!!очень надо 

спасибо большое

var  b, p: real;  i: byte;begin  p := 1;  for i := 0 to 47 do  begin    b := cos(i) * (sqr(i) / (i + 8));    if (abs(b) <= 25) then      p := p * i;    if (i >= 18) then //Верхняя граница и так задана, так что нужно только нижнюю приткнуть      write(i, ' '); //Вывод очередного числа  end;  writeln(#13, p); //Вывод произведенияend.