10 варик Var a,b,c,K,sum:real;
Begin
K:=0;
Sum:=0;
Write ('a='); read (a);
Write ('b='); read (b);
Write ('c='); read (c);
begin
If a<0 then writeln ('K:=K+1' , 'sum:=sum+a')
If b<0 then writeln ('K:=K+1' , 'sum:=sum+b');
If c<0 then writeln ('K:=K+1' , 'sum:=sum+c');
Writeln('sum=sum/k');
End
end.
у меня выходит sum=sum/k что не так?(

Потому что ты выводишь строку "sum=sum/k"

Еще и переменные sum и k ты не увеличиваешь, а просто выводишь

"K:=K+1' , 'sum:=sum+b"

Исправленный код:

Var a,b,c,k,sum:real;

Begin

k:=0;

sum:=0;

Write ('a='); read (a);

Write ('b='); read (b);

Write ('c='); read (c);

begin

If a<0 then begin k := k + 1; sum := sum + a; end;

If b<0 then begin k := k + 1; sum := sum + b; end;

If c<0 then begin k := k + 1; sum := sum + c; end;

writeln('sum=',sum/k:5:2);

end;

end.