Решите пожалуйста задачу на языке pascal

Var a,b,c:longint; begin write('Введите целое положительное число a='); readln(a); b:=a; c:=0; while b>0 do  begin  c:=c*10+(b mod 10);   b:=b div 10;  end; writeln(c); if c=a then write('Палиндром') else  write('Не палиндром'); end.