2 задания в одной программе.

[Scredis]

PHP код:

program Lab_45;  
uses crt;  
var  
b,z,C,e,s:real;  
k,i,k1,x,kol,x1,n,m,f:integer;  
label 4,  
men,  
E123;  
begin men:  
clrscr;  
textbackground (white);  
textcolor (black);  
gotoxy (36,18);  
write('Меню');  
gotoxy (30,20);  
write('1. Презентация');  
gotoxy(31,22);  
write('2. Задача 1');  
gotoxy (31,24);  
write('3. Задача 2');  
gotoxy(32,26);  
write('4. Выход');  
textcolor(red);  
gotoxy (20,45);  
write('Выберите пункт меню');  
gotoxy (40,45);  
read(k1);  
if (k1>4) or (k1<1) then goto men;  
case k1 of  
1:begin  
clrscr;  
textcolor (red);  
gotoxy(23,15);  
write('Лабораторная работа 4/5');  
gotoxy(38,17);  
write('Тема');  
gotoxy(15,19);  
write('Разработка программы,  включающей в себя задачи');  
gotoxy(20,21);  
write('Линейной и разветвлённой структуры');  
gotoxy(30,28);  
write('Тарасов Дмитрий');  
gotoxy(30,30);  
write('Группа 29ПМ-309');  
readkey;  
goto men;  
end;  
2:begin  
clrscr;  
textcolor(black);  
gotoxy(30,5);  
write('Задание 1');  
gotoxy(15,15);  
write('Вычислить произведения чисел натурального ряда.');  
gotoxy(18,17);  
write('Натуральный ряд содержит k чисел.');  
gotoxy(16,19);  
write('Полученное произведение разделить на 4.');  
gotoxy(20,22)  
textcolor(red);  
write('Введите количество чисел = ');  
read(k);  
gotoxy(15,24)  
write('ведите первое число натурального ряда =');  
read(C); 


1. Составить программу вычисления произведения чётных чисел натурального ряда. Натуральный ряд содержит K чисел. Полученную сумму разделить на 4, используя команды сдвига.
K - вводить с клавиатуры.

2. Даны целое число n, действительный числа X, Є(X<>0,Є>0). Вычислить с точностью Є:
формула: http://pikucha.ru/937738

что дальше не знаю..
-
Заранее, благодарю.