Program 2;
uses CRT;
var x,y:real;
begin
clrscr;
x:=3;
while x<=5 do
begin
if x<0 then
y:= Exp((1/5)*Ln(1-Exp(2*x*Ln(5))))/Exp(2*x*Ln(Sin(x)/Cos(x)))
else
if x>0 then
y:= -Exp((1/5)*Ln(Exp(2*x*Ln(5))-1))/Exp(2*x*Ln(Sin(x)/Cos(x)))
else
y:=0;
writeln('x= ',x:3:2,' Y= ',Y:3:2);
x:=x+0.2;
end;
readln;
end.
вот так прописываю выдает ошибку, написал, как вы показали в чем причина?