Пусть в переменной с, имеющей типinteger,записано четырехзначное число. запишите в пернменную х, имеющую тип integer ,число, полученное перестановкой первой цифры с третьей цифрой, и второй цифры с четвертой цифрой исходного числа. например, если дано число 6104, то в ответе получается 461. если пользуетесь дополнительными переменными то они все имеют тип 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.