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

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

Листинг:

program main;

var k, x, w: integer;

begin

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

   readln(k, x, w);

   if (k > 2) or ((x <= 9) and (w >6)) then

     if k + x - w > 10 then begin

       k := (k-x) * 4;

       x := w * k;

       if (k >= 6) and (x > 2) then

         if (k < x) and (x > 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 > 3) and (x < 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 >= 6 then begin

         x := x * 5;

         writeln(x + k - w);

       end

       else begin

           if k > 10 then

               k := (x + k) * 3

           else

               w := k * x;

       writeln((k + w) * x);

       end;

   end;

end.