Дано 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.