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 строке ошибка : Нет перегруженной подпрограммы с такими типами параметров. Как быть?