задача паскаля

[nafanail]

Program Z4_6;
Uses CRT;
  Var x,y,k: real;
  Begin
 WriteLn('введите значение  x=');
 ReadLn(x);
 WriteLn('введите значение  k=');
 ReadLn(k);
 if (k/3)<exp(13/10*ln(sin(x))) then y:=(sqrt(1+(exp(3*ln(x))))/(cos(k)))
 else
   if ((k/3)<exp(13/10*ln(sin(x))) and ((k/3)>=(exp(13/10*ln(sin(x)))))  then    y:=sin(sqr(1+(exp(3*ln(x)))
   else y:=sin(sqr(1+(exp(3*ln(x)));

 Write('x=',x,'ó=' ,y:4:2);
End.

при k = 2; x = 0,5(к чему дано это значение?)

[TinMan]

Сообщение от nafanail

при k = 2; x = 0,5(к чему дано это значение?)

Полагаю, чтобы ввести в программу и получить y.
А вообще имей в виду: когда задаешь вопрос, сестра таланта - твой злейший враг.

Могу еще добавить, что среднее "if ... then ... else" можно выкинуть (в угоду твоей любимой краткости) - оно никогда не осуществится.

[puporev]

при k = 2; x = 0,5(к чему дано это значение?)

Вместо

WriteLn('введите значение  x=');
 ReadLn(x);
 WriteLn('введите значение  k=');
 ReadLn(k);

написать

k:=2;
x:=0.5;