написать программу в Турбо Паскаль вычисления выражения по заданным формулам

[GhostOfNight]

помогите, пожалуйста, написать программу в Turbo Pascal:

y={cos x при x+a˂5,
6|x| при x+a≥5, x˂a,
3 в степени 2a при x+a≥5, x≥a
и

v={ x/n при n- четное целое от 4 до 8,
0,3 при n- любое целое, кроме 4, 6, 8.

Значение x, a, n ввести с клавиатуры.

[SaLoKiN]

а где блок схема? или описание алгоритма хотяб?

[Mad_Cat]

а где блок схема? или описание алгоритма хотяб?

наивный)

var x,y,a,v:real;
n:integer;
begin
readln(a,x,n);
if (x+a)<5 then y:=cos(x)
else
begin
if x<a then y:=6*abs(x)
else y:=exp(a*ln(9));
end;
if not odd(n) and (n  in [4..8])then v:=x/n;
if not (n in [4,6,8]) then v:=0.3;
writeln(y);
writeln(v);
end.

[SaLoKiN]

где то я уже в соседней писал кое чего=)

Сообщение от SaLoKiN

Mad_Cat
ох и балуете вы их :-)

[GhostOfNight]

спасибо вам большое)) чет я совсем в этой теме... не знаю че да ж вводить(( ладно разберусь, спасибо еще раз))