1)program d;2)var cos,x,y:real;3)begin4)writeln(039;введите значение х 039;);5)readln(x);6)if

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