что не так в программе?

[Repz1992]

program as;
var k,x:real;
begin
write('vvedite zna4enie k');readln(k);
if k<1 then y:=log*abs(k*x)
else 1<=k<10 then y:=sin(k*x)
else y:=k*exp(2*ln(x))
write ln ('y=',y:5:3);
readln;
end.
задача на разв алгоритмы

[Alex Cones]

else 1<=k<10 then

Не верю своим глазам!

Else If (k>=1) And (k<10) Then

[Repz1992]

всё равно не правильно!может я чё то тут напутал?

[Alex Cones]

y:=log*abs(k*x)

Y:=Log(Abs(k*x))

И уберите все Else! Хватит трех If..Then

e y:=k*exp(2*ln(x))

Y:=k*Sqr(X)

P.S. В блок-схеме нельзя писать "введите". Пишется "ввод"

[Repz1992]

ВЫХОДИТ ОШИБКА ПОД БУКВОЙ L

[Alex Cones]

1) Под какой буквой L?
2) Снимите палец с Shift

[Repz1992]

Log первая буква L под ней начинает мигать когда я нажимаю Run

[Alex Cones]

Попробуйте Log10, если он есть в паскале, а вообще пользуйтесь правилом смены основания.
Conversion of bases: Log.b(X) = Log.a(X) / Log.a(b)
т.е. Log.10(x) = Ln(X)/Ln(10)

[Repz1992]

спс!!но всё равно выходит ошибка,может у меня паскаль глючит?завтра короче подойду к училке и спрошу в чём может быть проблема!!!!