Помогите найти ошибку по предмету Алгартмы, очень надо.

Question

Задача: 
Вычислить значения по формуле все переменные принимают действительные значения Cos x/p-2x+16xcos(xy)-2 
Решение: 
program Project2; 
 var f,x,y,p : real; 
begin 
 writeLn('Vvedite x,y,p'); 
 readln(x,y,p); 
 f := @cos(x/p)-2*x+16@*x*cos(x*y)-2; 
 writeln('f=',f:3:3); 
 readln; 
end. 
 Взял в кавычки ту ошибку которую мне подчеркнули, там что-то не правильно. выделил это место знакоми @

Сико · Accepted Answer

Попробуй ввести еще переменные. например 
f1= cos(x/p) 
f2=16*x*cos(x*y) 
а f считать уже суммой этих двух и того что останется. 
Попробуй использовать sin(x) 
чем больше текста в простой программе, тем проще ошибку искать) удачи)