Задача: составить программу которая из данного четырехзначного числа получает новое четырехзначное число поменяв цифры. Первую с последней и вторую с третьей.
Pascal

Работает на Pascal ABC

(Решил чтобы при вводе и выводе было число,а в процессе решил перевести строчный тип,чтобы было быстрее)

var

 ch:longint;

 chs:string;

begin

 read(ch);

 chs:=inttostr(ch);

 swap(chs[1],chs[4]);

 swap(chs[2],chs[3]);

 writeln(strtoint(chs));

end.