СРОЧНО, ПОМОГИТЕ!!! МНОГО БАЛЛОВ!!!

1. Составить программу на языке программирования QBASIC для нахождения длины окружности L (значение радиуса R ввести с клавиатуры), полученный ответ вывести на экран.

2.  Составить программу на языке программирования QBASIC для нахождения значения функции

Y={ X^2+5, если X>=1

     {1/ (2X^2+4), если X<1

Значение аргумента Х ввести с клавиатуры.

3. Составить программу на языке программирования QBASIC для нахождения произведения чётных чисел из диапозона от 3 до 17.

С ПОДРОБНЫМ РЕШЕНИЕМ!!! ЗАРАНЕЕ СПАСИБО!!!!

INPUT radlen = 2*3.14*radPRINT len

INPUT xIF x > 1 THEN y = x*x+5 ELSE y = 1/(2*x*x+4) END IFPRINT y

R=1FOR I = 4 TO 16 STEP 2R=R*INEXT IPRINT R