Question

дано натуральное четырехзначное число. Найти число ,полученное перестановкой 2 и 3 цифр заданного числа

Answer 1

 var s :string;f:char; 
begin 
write('Введите четырехзначное число '); 
readln(s); 
f:= s[3]; 
s[3]:= s[2];  
s[2]:= f;
 write('число = ',s); 
end.