HELP!!!Пара элементарных задач...

[SeRenDipiTy]

Всем привет. Вот мне не хватает двух зачётов... Нужно решить задачки... Помогите, пожалуйста.
1). Вычислить выражение: y=2/3* корень(2-cos^3(x))* ln|x-3|/(1+x)^5. Значение Х вводится с клавиатуры...
2). База данных содержит информацию о компьютерных комплектующих на складе: тип(строка 10 символов), описание(строка 15 символов), оновные характеристики(строка 20 символов), серийный номер(целое шестизначное число), дата продажи(дд.мм.гггг) и цена (целое число).Дата продажи при вводе записи не указывается. Дополнительно реализовать сервис продажи (при завершении указывается дата продажи), а также отчёт о проджах за определённый день.

Заранее большое спасибо!

[МаксимNEWProgramm]

по сути задача простая как тапор , но тапор может так хряснуть, что мало не покажеться!
всё понядно вот только что с cos^5 делать незнаю . Просто вычеслил cos^1. Попробуйте там какнибуть сами ,может кто другой знает
вот неполный может даже и неверный КОД:

{$N+}
uses crt;
var s,y:Extended;x:longint;
begin
read(x);
{.........}
y:=2/3*sqrt(2-cos(x))*ln((abs(x-3)))/exp(5*ln(1+x));
{.........}

[masterdela]

1)
Может так прокатит:

//формулу разбил на две части y1,y2, чтобы легче читать
var
y,y1,y2,x:real; 
begin
readln(x);
y1:=(2/3)*sqrt(2-(cos(x)*cos(x)*cos(x)));
y2:=ln((abs(x-3))/((1+x)*(1+x)*(1+x)*(1+x)*(1+x)));
y:=y1*y2;
writeln(y);
end.

[дмидми]

    Const pi = 3.14159265358979
    Debug.Print Cos(60 * pi / 180) ^ 3