Из произведения чисел 1,3,5,7,9 сделайте вычитание произведения чисел 2,4,6,8,10
​

1*3*5*7*9-2*4*6*8*10= -2895

1) найдем произведение чисел 1,3,5,7,9

1*3*5*7*9=3*5*7*9=15*7*9=105*9=945

2) найдем произведение чисел 2,4,6,8,10

2*4*6*8*10=8*6*8*10-48*8*10=384*10=3840

3) Вычтем из 945 число 3840.

945-3840=945+(-3840)=-(3840-945)=-2895

1×3×5×7×9-2×4×6×8×10 = -2895

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

вот так понятней буде)) ну и более правильно, для

var a,b,c,d: integer; beginwriteln('введите 1 число'); read(a); writeln('введите 2 число'); read (b); writeln('введите 3 число'); read (c); d: =a+b+c; writeln('сумма чисел ',a,'+',b,'+',c,'=',d); end.