ЗАДАНИЕ В ПАСКАЛЕ После прогулки человек смог перейти на новый уровень своих возможностей и стал более выносливым, но он хочет и дальше развиваться, поэтому перешел к следующей прогулке.
Теперь перед ним встала задача пройти от первого до N-ого дерева в роще. Между каждым деревом человек проходил одинаковое количество шагов А. Создайте программу, просчитывающую за человека сколько шагов он за время прогулки и сколько шагов он проходил от первого дерева до каждого следующего дерева (от 1до 2 дерева, от 1 до 3, от 1 до 4)
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.