Question

помогите пож
Задание 1
Составить программу, которая бы запрашивала Хнач , Хкон , шаг C и определяла сумму всех отрицательных чисел от Хнач до Хкон с шагом С (решить задачу, используя цикл с предусло-вием – While .. Do).

Answer 1

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.