Дано пятизначное число.Переставить две левые цифры в правую сторону.

write((n mod 1000)*100 + n div 100);

Делится на 1000   write((n mod 1000)*100 + n div 1000);

А ну да, просто изначально подумал, что при вводе АБВГД будет ВГДБА, а потом просто исправил

Pascalvar n:integer;beginread(n);write(n mod 1000 * 100 + n div 10000 * 10 + n div 1000 mod 10);end.

Берем разряды единиц и десятков, разряд единиц добавляем перед числом, потом разряд десятков добавляем перед числом.12345Берем разряд единиц, подставляем перед числом51234Теперь берем разряд десятков (теперь это разряд единиц), подставляем перед числом45123Готово!