Заполните чеки трассировочные таблицы используя данные из проекта V=1/2l корень f/ps​

Program deposit;
var p,s: real;
n:integer;
begin
p:=0;//величина прибавки
s:=1000;//первоначальная сумма
n:=0;//число месяцев
while p<=30 do //пока прибавка меньше 30 руб.
begin
p:=s*0.02; //величина месячной прибавки
сумма плюс прибавка за текущий месяц
n:=n+1;//число месяцев
end;
writeln('Ежемесячное увеличение вклада превысит 30 руб через ',n, ' месяцев');
n:=0; //обнуление счетчика месяцев
s:=1000;//восстановление значения первоначального взноса
while s<=1200 do
begin
p:=s*0.02;//Величина месячной прибавки
сумма плюс прибавка за текущий месяц
n:=n+1;//число месяцев
end;
writeln('Величина вклада превысит 1200 руб через ',n,' месяцев');
end.

Код для проверки

def Avtomat(chislo)
    s = chislo.to_s

    if s.length == 4
        s = s[0..-2] + "1"
    end
    if s.length == 3
        s = (2*(s[0].to_i)).to_s + s[1..-1]
    end

    sym = [9,0,1,2,3,4,5,6,7,8]
    s_new = ""
    for k in 0..s.size - 1
        s_new += sym[s[k].to_i].to_s
    end

    return s_new.to_i
end

for i in 100..9999
    r = Avtomat(i)
    p [i,r] if [159, 261, 1916, 1120, 820, 105, 5100, 9410].include?(r)
end

Вывод
[116, 105]
[160, 159]
[616, 105]
[660, 159]
[1930, 820]
[1931, 820]
[1932, 820]
[1933, 820]
[1934, 820]
[1935, 820]
[1936, 820]
[1937, 820]
[1938, 820]
[1939, 820]
[2230, 1120]
[2231, 1120]
[2232, 1120]
[2233, 1120]
[2234, 1120]
[2235, 1120]
[2236, 1120]
[2237, 1120]
[2238, 1120]
[2239, 1120]
[6210, 5100]
[6211, 5100]
[6212, 5100]
[6213, 5100]
[6214, 5100]
[6215, 5100]
[6216, 5100]
[6217, 5100]
[6218, 5100]
[6219, 5100]

В перечисленное не попали числа 261 1916 9410

Но если брать что "Автомат получает на вход трёхзначное десятичное число", т.е 4 значные не подаются на вход то не войдут числа
261 1916 1120 820 5100 9410