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

var

 h, a, b, m: integer;

begin

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

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

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

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

 begin

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

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

 end;

end.