Помогите , пожалуйста , с информатикой !! Необходимо по этой схеме

Превосходнее бы вы написали знаками что требуется в задаче. Блок-схема не нужна.

Я бы с радостью , но не могу иначе . Нам задали придумать свою блок-схему и написать по ней программку в Pascal . А неудача в том , что с программой у меня прблемы

Для чего же выдумывать такового "крокодила", но мне кажется это не вы придумали, вы где-то это из интернетов взяли. Поначалу придумывается задачка, что вы хотите получить, а блок-схема это позже, если она вообщем кому-то нужна.

В первую же очередь создаётся блок-схема программки, обрисовывая общие и узкие профили её работы. Затем, по этой схеме пишется программка. Если ВЫ лично так не делаете, то это не означает, что так не делают другие 99.9% программистов.

Блок схема чего создается, какого метода, какой задачки? Да, для решения школьных задач я не использую блок схемы, совсем.

Вы желаете сказать, что можно удержать всю задачу, описанную на фото в голове и написать по этим знаниям в голове код? Тупость, да ещё и какая. Потому и создаётся сначала блок-схема, а потом теснее и код. Да, для большинства школьных задач такое не необходимо. Но, повторюсь, не надобно закладывать в умы подростков такое воззрение, которое сформировано лишь у Вас, основанное на собственном опыте.

Ну, я считаю, что в школе блок-схемы это зло. Негодный хлам на чердаке. Кому будет необходимо, тот в институте выучится.

Ты налажал в схеме:

• в условии пт 1 и 2 (пофиксил);
• в пт 3, там нет никакого оператора присваивания (пофиксил).

Листинг:

program main;

var k, x, w: integer;

begin

   writeln('Введите "k", "x", "w"');

   readln(k, x, w);

   if (k gt; 2) or ((x lt;= 9) and (w gt;6)) then

     if k + x - w gt; 10 then begin

       k := (k-x) * 4;

       x := w * k;

       if (k gt;= 6) and (x gt; 2) then

         if (k lt; x) and (x gt; w) then begin

         x := 4;

         writeln(x - k);

         end

         else begin

           x := w;

           writeln(K + w);

         end

       else begin

         k := (k + x) * 3;

         writeln(k + x)

       end;

     end

     else begin

       w := w * x;

       x := (k + x) * 2;

       if (w gt; 3) and (x lt; 20) then begin

         w := w * 2;

         writeln(x + w);

       end

       else begin

         x := sqr(x);

         writeln(x - w);

       end;

     end

   else begin

       k := x +w;

       w := sqr(w);

       if x gt;= 6 then begin

         x := x * 5;

         writeln(x + k - w);

       end

       else begin

           if k gt; 10 then

               k := (x + k) * 3

           else

               w := k * x;

       writeln((k + w) * x);

       end;

   end;

end.