Помогите пожалуйста составить программку подсчета силы тяжести если m изменяется от

var

 h, a, b, m: integer;

begin

 readln(a, b); //вводим a, b с клавиатуры

 readln(h); //вводим h с клавиатуры

 m := a; //приравниваем значение массы к а

 while m lt;= b do //пока масса меньше b цикл будет исполнять повторения

 begin

   write(m * 10, ' '); //выводим значение силы тяжести

   m += h; //увеличиваем массу на шаг

 end;

end.