Написать программу для вычисления значения исходных данных функции и вывести исходные данные и результат

[Fiesta12]

Условие во вложении,на паскале

[Вадим Мошев]

Начинайте работу, покажите наработки, что не получается?

[newerow1989]

function ak(k:real):real;
begin
   If k*Sqrt(k)<=5 then
      Result:=0 else
   If k*Sqrt(k)>8 then
      Result:=k*k-Sin(pi*k*k) else
      Result:=k*k-k;
end;

const N=62;
var k:integer;
    a,p:real;
begin
   p:=1;
   For k:=0 to N do
   begin
      a:=ak(k);
      p:=p*a;
   end;
   Writeln(p:3:5);
   Readln;
end.