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