если хотитте просто ответ Какое число необходимо подать на вход программе, чтобы бы- ло выведено число 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.