Пож 1 составить программу, которая бы запрашивала хнач , хкон , шаг c и определяла сумму всех отрицательных чисел от хнач до хкон с шагом с (решить , используя цикл с предусло-вием – while .. do).

Var
  x0, x1, c, sum: integer;
begin
  sum:=0;
  readln(x0, x1, c);
  while x0<=x1 do
  begin
    sum:=sum+x0;
    x0:=x0+c;
  end;
  writeln(sum);
end.