Question

Дано четырёхзначное число. Получить число, образуемое при перестановке двух первых и двух последних цифр заданного числа. Например, из числа 4567 получить 6745. Мне нужна программа в Pascal!!!!!!!

Answer 1

var

  a : integer;

begin

  read (a);

  a := a div 100 + (a mod 100) * 100;

  write (a);

end.