Дано 4 значное число, поменять местами первую и последнюю цифру. Программирование, составить в Паскале

Если надо вывести получившееся число без ведущих нулей (т. е. 1000 превратить в 1), то можно так:

var n: integer;

begin

readln (n) ;

writeln (1000 * (n mod 10) + (n - (n mod 10) - 1000 * (n div 1000)) + n div 1000)

end.

Если надо сохранять ведущие нули, то можно, например, считать число посимвольно.

var i: integer;

c: array[1 ... 4] of char;

t: char;

begin

for i : = 1 to 4 do

read (c[i]) ;

t : = c[1]; c[1] : = c[4]; c[4] : = t;

for i : = 1 to 4 do

write (c[i])

end.