клиент пришел в банк и положил на счет s гривен. процентная ставка p процентов годовых. выведите на экран сумму на счету клиента по окончании каждого года на протижении 20 лет. java script

Var
  n, m, d: integer;

begin
  Write('Введите трехзначное число: ');
  Readln(n);
  if (n < 100) or (n > 999) then
    Writeln('У Вас странное представление о трехзначных числах!')
  else begin
    d := n div 100; {старшая}
    n := n mod 100;
    m := n div 10; {средняя}
    n := n mod 10; {младшая}
    if (m > d) and (n > m) then
      Writeln('Цифры следуют в возрастающей последовательности')
    else if (m < d) and (n < m) then
      Writeln('Цифры следуют в убывающей последовательности')
    else Writeln('Цифры не образуют монотонную последовательность')
  end
end.

Тестовое решение:

Введите трехзначное число: 159
Цифры следуют в возрастающей последовательности

Var
  i, a, b, n, n2, j: longint;
  s: string;
  flag: boolean;

begin
  Write('Введите через пробел границы диапазона: ');
  Readln(a, b);
  if b < a then begin n := a; a := b; b := n end;
  if a < 11 then a := 11;
  for i := a to b do
  begin
    Str(i, s);
    n := Length(s); n2 := n div 2; flag := true; j := 1;
    repeat
      flag := (s[j] = s[n - j + 1]);
      j := j + 1
    until (not flag) or (j > n2);
    if flag then Write(i, ' ')
  end;
end.

Тестовое решение:

Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441