Пусть в переменной С, имеющей типinteger,записано четырехзначное число. Запишите в пернменную Х, имеющую тип integer ,число, полученное перестановкой первой цифры с третьей цифрой, и второй цифры с четвертой цифрой исходного числа. Например, если дано число 6104, то в ответе получается 461. Если пользуетесь дополнительными переменными то они все имеют тип integer.

var c, x: integer;begin  read(c);  x := c div 100 mod 10 + 10 * (c div 1000) +        100 * (c mod 10) + 1000 * (c div 10 mod 10);  write(x)end.