Нужно записать вторую часть цикла, чтобы робот спускался при любом количестве ступеней нужен цикл в цикле

но какое взять общее нц пока чтобы "нащупать" последнюю ступеньку?

i'm going to read a lot of books this year. я собираюсь прочесть много книг в этом году.

we hope you will solve all your problems soon. мы надеемся, что вскоре ты решишь все свои проблемы.

when everyone took their places my grandmother said "well, now listen to stories". когда все заняли свои места, моя бабушка сказала: "ну, теперь послушайте ".

i will try to answer all your questions. я постараюсь ответить на все твои вопросы.

we're going to discuss this buisness plan with our partners. мы собираемся обсудить этот бизнес-план с нашими партнёрами.

 

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

function IsGood(Self:integer):boolean; extensionmethod;
begin
  (var max,var min,var n):=(0,9,abs(Self));
  while n>0 do begin
    var d:=n mod 10;
    if d>max then max:=d;
    if d<min then min:=d;
    n:=n div 10
    end;
  Result:=max-min<5
end;

function P(name:string):double;
begin
  Result:=ReadElements&<integer>(name).Where(n->n.IsGood).Average
end;
 
begin
  Writeln('Среднее арифметическое равно ',P(ReadlnString('Имя файла:')))
end.

Пример
Имя файла: integers.pas
Среднее арифметическое равно 1.78571428571429