ЗАДАНИЕ В ПАСКАЛЕПосле прошлой прогулки человек смог перейти на новый уровень своих

program walk;

var ST: integer;

var T: integer;

var i: integer;

var all_: integer;

begin

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

  readln(ST);

  writeln('количество деревьев: ');

  readln(T);

  for i:=1 to T-1 do begin

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

      all_ += i*ST;

  end;

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

end.