Проверьте задание в Basic'е!!!

[Epique]

Всем доброго времени суток=)
По информатике задали решить задачу в Basic'е, в котором я полный ноль( Попросила знакомого сделать мне ее и что бы ее проверить скачала QBasic, но что-то я в нем совсем не "врубаюсь" , единственное, что я поняла, так это то, что программа не правильно составлена, да и проверка в ворде показала то же самое...
Собственно сама программа:

rem var 15 
pi = 4*atn(1) 
input x 
if x> pi/4 then L= exp((3+x^2)/4) else L = -exp((1+x^2)/4) 
R=sin((1+x^2)/4)*L 
print "R=";R 
end

Условие приложено в картинке.

[gaw4]

end уберите

[Epique]

и всё?
А ворд показал input x как ошибку.
А вобщем составлено правильно?

[Grinulya]

2 gaw4:
оператор END (как конец программы) указан правильно, но необязателен...

2 Epique:
милая девушка, на сколько я знаю текстовый редактор Ворд проверкой программного кода не занимается и не должен. А вообще программа составлена верно, но при некоторых значениях переменной Х, введенной пользователем, интерпритатор будет выдавать сообщение об ошибке, что-то типа: "illegal function call!"

[rUs_LAN]

про ворд улыбнуло

[Epique]

Про ворд мне подсказал человек и я ему доверилась=) Но после сообщения Gaw4 (убрать end) я снова попыталась проверить программу в бейсике и, вуаля, у меня все получилось=))))
Вобщем, спасибо Вам огромное за помощь=))))