Дано шестизначное число. Переставить две средние цифры в начало числа. 123456 должно получится 341256 через паскаль

Поскольку математических расчетов не производится, будем работать со строковым (символьным) представлением данных. Это как если бы мы взяли шесть квадратиков бумаги, написали бы на каждом цифру 1, 2, ... 6, и составили бы из этих кусочков цепочку 1-2-3-4-5-6. А потом сделали бы нужные перестановки.

var

s:string;

begin

Write ('Введите натуральное шестизначное число: ') ; Readln (s) ;

Writeln ('Перестановка: ', s[3]+s[4]+s[1]+s[2]+s[5]+s[6])

end.

Тестовое решение:

Введите натуральное шестизначное число: 123456

Перестановка: 341256