Pascal. Напишите программу, на вход которой подается с клавиатуры шестизначное число, и она выводит чисто с перевернутыми тройками цифр. Например, из числа 123456 должно получиться число 321654.Строки, массивы, условные операторы не использовать.

var a, b, temp: integer;

begin

 writeln('Введите 6-ое число');

 readln(a);

 temp := a div 1000;

 b:= temp mod 10 * 100000;

 temp:= temp div 10;

 b:= b + temp mod 10 * 10000;

 b:= b + temp div 10 * 1000;

 temp := a mod 1000;

 b:= b + temp mod 10 * 100;

 temp:= temp div 10;

 b:= b + temp mod 10 * 10;

 b:= b + temp div 10;

 writeln('Результат: ', b);

end.