1)program d;
2)var cos,x,y:real;
3)begin
4)writeln('введите значение х ');
5)readln(x);
6)if x<=2 then y:=(3*(exp(sin(x))))*(sin(2*x))/(cos(2*x)) else
7)  это выражение сайт не хочет читать ,                                                            8)if(x>=6) then y:=((sqrt(abs((cos*cos)*x)+6)+(4)));
9)writeln('при x=',x:6:3,'y=',y:6:2);
10)end. Ожидалось имя процедуры или функции, ошибка в шестой строке, из-за того что я ввел косинус, а без косинуса в 8 строке ошибка : Нет перегруженной подпрограммы с такими типами параметров. Как быть?