если хотитте просто ответ Какое число необходимо подать на вход программе, чтобы бы- ло выведено число 5311?

var n:integer;
begin
readln(n);
writeln(n div 200 mod 20*1000 + n div 10 mod 10*100 +
+ n mod 10*15 + n div 1000)
end.

{1 способ} var n,k: integer;         s: string; begin   writteln('введите n,k');   readln(n,k);   str(n,s); {преобразуем число n в строку s}   witeln(s[length(s)-k+1]); {length(s) -длина строки} end. {2  } cons nmax=20; var a: array [1..nmax] of integer;       min1,min2,i,k1,k2,n: integer; begin   writeln('введите  кол-во  элементов  массива');   readln(n);     writeln('введите элементы массива');         for i: =1 to n do   read(a[i]);     min1: =a[1]; k1: =1; {k1  -индекс  первого  минимального  элемента}     for i: =2 to n do      if min1> a[i] then       begin            min1: =a[i];         k1: =i     end; {исключаем  найденный  минимальный  элемент  из  массива-  можно  и  по  другому}     for i: =k1+1 to n do        a[i-1]: =a[i];       k1: =n-1;   end;       min2: =a[1]; k2: =1; {k1 -индекс первого минимального элемента}     for i: =2 to n do      if min2> a[i] then        begin        min2: =a[i];       k2: =i     end; writeln(min1: 5,min2: 5) {если  нужно  было  сохранить  массив  в  начале  программы  надо  ввести  дополнительный  массив  } end.