составить программу записывающее четырехзначное число наоборот

program mirror;

var n, k, s: integer;

begin

writeln ('Введите целое число:');

readln (n); / /Ввод числа

s: = 0; / /начальное значение остатка при делении

while n > 0 do

begin

k: = n mod 10; / /нахождение последней цифры

s:=s * 10 + k; / /добавление найденной цифры в конец числа

n: = n div 10 / / отсекается последняя цифра от исходного числа

end;

writeln (s);

end.