Сделайте алгоритм для программы кумир в среде черепаха вот фотки того чего сделать нужно

var

 A, B, c, x, p1, p2 :double;

const

 PI = 3.1415926;

begin

 readln(A, B, c, x);

 if exp(c+power(x,0.2)) <> 0 then

   p2 := 32.7*power(A,3)*x/exp(c+power(x,0.2))

 else begin

   writeln('Деление на 0 во второй дроби');

   halt;

 end;

 

 if (abs(0.65 * A * PI * Power(x,3))<> 2*PI) then

   p1 := tan(0.65 * A * PI * Power(x,3))

 else begin

   writeln('Аргумент для тангенса неверен');

   halt;

 end;

 

 if (p1 < 0) then begin

   writeln('Отрицательное подкоренное выражение');

   halt;

 end

 else

   if(p1 = 0) then begin

     writeln('Деление на 0 в первой дроби');

     halt;

   end;

   

 writeln('Результат: ', (B * cos(x)*cos(x))/sqrt(p1)+p2);

end.

Объяснение:

Выделите одну или несколько ячеек, которые необходимо использовать в качестве основы для заполнения других ячеек.

Например, если требуется задать последовательность 1, 2, 3, 4, 5..., введите в первые две ячейки значения 1 и 2. Если необходима последовательность 2, 4, 6, 8..., введите 2 и 4.

Если необходима последовательность 2, 2, 2, 2..., введите значение 2 только в первую ячейку.

Перетащите маркер заполнения Маркер заполнения.

При необходимости щелкните значок Параметры автозаполнения Изображение кнопки и выберите подходящий вариант.