Question

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

Answer 1

это будет выглядеть так