Question

помогите пожалуйста. Напишите программу, которая вводит четырёхзначное натуральное число и переставляет его вторую и третью цифры, например, из числа 1234 должно получится 1324

Answer 1

var x : integer;

begin

writeln('Введите четырехзначное число');

read(x);

x := x + 90*((x div 10) mod 10 - (x div 100) mod 10);

writeln(x);

end.