Меню и 2 задачи в нём!

[Scredis]

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

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

-
Заранее, благодарю.

Меню вроде верно сделал.

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;