Дано натуральное число. Определить является ли оно палиндромом. Написать процедуру получения нового числа. Паскаль

var n,m:integer;procedure inverse(a:integer; var b:integer);beginb:=0;while a>0 do begin b:=b*10+a mod 10; a:=a div 10; end;end;beginwrite('n = ');readln(n);inverse(n,m);if n=m then writeln('Число - палиндром') else writeln('Число - не палиндром');end.Пример:n = 123321Число - палиндром