Ты налажал в схеме:
- в условии пунктов 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.