Помощь в Turbo Pascal

[Alert]

Парни шарящие в Turbo Pascal помогите пжалста !
Есть у меня хороший друг, который не может написать прогу в Turbo Pascal, может быть кто то может помочь написать ?
Вот скрин:

[Zhlobny Hmur]

-=FuDo_Tao=-, Издевательство какое-то. Что, трудно взять методичку и запрограммировать ПРЯМЫЕ формулы?! Из принципа не буду писать ЭЛЕМЕНТАРНЕЙШИЕ вещи.

З.Ы. По поводу 4 задания - в паскале (как и в других языках программирования) есть только вычисление логарифма по отснованию 2. Поэтому необходимо применить формулу преобразования.

Рыба

Program <формулка>;

Var 
   x,y,z,....:Real;
   f:Real;

Const
   <константка>=<значение>;

Begin
   ReadLn(x,y,z,....);
   f:=<формулка>;
   WriteLn(f)
End.

Вместо формулки может быть условие, где формулкой является признак разделения. Типа (x mod 5=0) and (y mod 5=0)...