Нельзя преобразовать тип - Pascal ABC

Формулировка задачи:

Привет всем! при написании программы столкулся с проблемой при компиляции kr:= (0.6+(lat/2)/(COS*((3,14*grad)/180))*(long+0.6)); выдает Нельзя преобразовать тип Tuple<integer,real> к real незнаю где ошибся.

Решение задачи: «Нельзя преобразовать тип»

Листинг программы

PROGRAM PR4;
VAR 
lat,long,h,win,dor,persh, perdov, grad,lag,stoj,prog,krokv,latan,membr,ruf,pot,pol, vat, met, 
svai, komyn, robot, koef, nar, vn,gips,vag,blok,falch,st,kr: REAL;
BEGIN 
  ........
......тело с вводом даных опускаю
.......
  st:=lat*long*2;
  vn:= (lat*h*2+lat*h*persh*2+long*h*2+long*h*2)*((blok*240/100)+(vag*120/100)+(falch*160/100)+(gips*35/100))+st*(blok*240/100)+(vag*120/100)+(falch*160/100)+(gips*35/100); 
  nar:= (lat*(h+0.7)+long*(h+0.7))*2; 
  kr:= (0.6+(lat/2)/(COS*((3,14*grad)/180))*(long+0.6)); 
  area:=a*a*sin(x)/(2*cos(x));
  WRITELN('Y =', st);
END.

Объяснение кода листинга программы

Объявлены переменные: lat, long, h, win, dor, persh, perdov, grad, lag, stoj, prog, krokv, latan, membr, ruf, pot, pol, vat, met, svai, komyn, robot, koef, nar, vn, gips, vag, blok, falch, st, kr, area (всего 39 переменных).
Вычислена переменная st как произведение lat, long и 2.
Вычислена переменная vn как сумма (произведение lat, h, persh и long) умноженное на коэффициент ((blok240/100)+(vag120/100)+(falch160/100)+(gips35/100))+st(blok240/100)+(vag120/100)+(falch160/100)+(gips*35/100).
Вычислена переменная nar как произведение (lat(h+0.7)) и (long(h+0.7)) и 2.
Вычислена переменная kr как косинус-произведение (0.6+(lat/2)/(COS((3,14grad)/180))*(long+0.6)).
Вычислена переменная area как площадь треугольника по формуле aasin(x)/(2*cos(x)).
Выведена переменная st с помощью WRITELN.
Введен оператор END, завершающий программу.