сделать лабораторную работу на Paskal'е по теме «Разветвляющиеся алгоритмы» (IF, CASE..DOC)

[xad777]

Всем привет, я на этом форуме новичок, но я очень надеюсь на то, что мне помогут.
Огромнейшая просьба: сделать лабораторную работу на Paskal'е по теме «Разветвляющиеся алгоритмы» (IF, CASE..DOC)
Если кто-нибудь сделает, я буду безумно благодарен, и, возможно, смогу ему чем-нибудь отблагодарить. Есть предложение - ваучерами для скайпа, по 3 штуки х 1,5$ за задание.
Также просьба, не писать комментарии, подобно "Делай сам" или "Это раз плюнуть".
Выкладываю задания:
Wvj9ZpWnrYk.jpg
Их надо сделать до 28.12.2012. Всем, кто поможет, просто преогромнейшее спасибо!!!

[Izobara]

Тема 4 - кхм:

var
 a,f:double;
  begin
   Writeln('Vvedite a: '); Readln(a);
   if a<-2 Then f:=4 else if a>-1 then f:=1 else f:=a*a;
   Writeln('f(a) = ',f:0:4); Readln;
  end.

[Izobara]

Тема 6: Вроде так, но запись sin(n+П/4) я не совсем понял. n там в каких единицах?

var
 y:double;
 n:integer;
  begin
   Write('n = '); Readln(n);
   case n of
   1: y:=abs(n*n*n*n*n*n*n*n+5);
   2..3: y:=sin(n+2)/cos(n+2);
   4: y:=sin(n+180/4);
   0,5: y:=exp(n);
   end;
   Writeln(y);
  end.

А в теме 5 ошибка.
Деньги мне не надо, но репутацию повысить можешь