A:=1234;
b:=(a div 1000)*101;
a:=(b div 10)+a;
Нужен только ответ. ​

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку