Какое минимальное число необходимо подать на вход программе, чтобы было выведено число `3629`? var n:integer;
begin readln(n);
writeln(n div 100 mod 20*1000 + n div 20 mod 10*100 + n mod 10*25 + n div 1000)
end.

4305

Объяснение:

модифицируем программу, чтобы она сама нашла нужное число (3629)

var

 n,i:integer;

begin  

 n:=0;

 i:=0;

 while i<>3629 do begin

   inc(n);

   i:=n div 100 mod 20*1000 + n div 20 mod 10*100 + n mod 10*25 + n div 1000;

 end;  

 writeln(n);

end.