Определить число полученное выписыванием в обратном порядке цифр заданного целого трехзначного числа

var n,n1,m:integer;beginwrite('n = ');readln(n);n1:=abs(n);m:=(n1 mod 10)*100+(n1 div 10 mod 10)*10+(n1 div 100);if n<0 then m:=-m;writeln('m = ',m);end.Пример:n = -123m = -321