После прошлой прогулки человек смог перейти на новый уровень своих возможностей и стал более

Вот код программы:

program steps;

var A: integer;

var B: integer;

var i: integer;

var all_: integer;

begin

   writeln('сколько шагов между деревьями?:');

   readln(A);

   writeln('сколько деревьев?:');

   readln(B);

   for i:=1 to B-1 do begin

       writeln('с ', 1, ' по ', i+1,' дерево ', i*A, ' M');

       all_ += i*A;

   end;

   writeln('всго шагов: ', all_);

end.

P.S. проверить можно на сайте https://www.onlinegdb.com