В общем, мне нужно написать программу для решения примера

Вот что я понаписала

А ещё мне нужно написать алгоритм к моей программе, мне там тогда все действия описывать (a,b,c,d и y), или как, а то я уже подзабыла что-то?

Ну просто пример пишеш по синтаксису и по действиям и все.
И про алгоритм-да.
на каждое присвоение переменной значинаия рисуеш блок
Если писала алгоритмы, то думаю знаеш как тогда обозначаются по правилам блоки.

Спасибо))

- очень велика вероятность ошибки. Если sin(x) и cos(x) будут одновременно > 0, или одновременно будут < 0, то аргумент Ln станет отрицательным, и будет... Ну, скажем, нехорошо будет... Я уж не говорю о случае, когда Cos(x) или Sin(x) будут равны 0. Кстати, константа e тебе не нужна, она всегда может быть получена через Exp(1)...

А как же тогда правильно записать, не подскажете? Просто я раньше с этим не сталкивалась

Ну, правильно было бы сначала проверить, что Cos(x) не равен 0, и только потом продолжать:

program zadacha;
uses crt;
var x, a, b, c, d, y: real;
begin
  clrscr;
  write('x = '); readln(x);
  if abs(cos(x)) > 10e-9 then begin
    a:=abs(1-sqr(sin(x/2)));
    b:=-sqr(sin(x)/cos(x)) * (sin(x)/cos(x)); { Вот так вычисляем куб тангенса }
    c:=2*exp(b); { <--- Вот тут тоже обрати внимание !!! }
    d:=exp(ln(a)*(1/5))+c;
    y:=exp(ln(d)*(1/3));
    writeln('y = ', y:5 :3);
  end
  else writeln('cos(x) = 0; деление на 0 !!!');
  readkey;
end.

Болшьшое спасибо, только вот у нас вроде задание написать неразветвлённую программу, ну ладно))
И ещё по блок-схеме: в блоке ввода данных указывать только x или как?

Ну, ты же вводишь только Х? Значит, только его и указывай...

Ага, спасибо большое , я просто подумала, что может опять на меня напало настроение тормоза