Дано натуральное число. Выяснить, является ли оно палиндромом ("перевертышем"), т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
Помогите написать на паскале

program gt;var a,b,i,q,l:integer;beginreadln(a);l:=a;b:=0;while a>0 dobeginq:=a mod 10;b:=b*10+q;a:=a div 10;end;if(l=b)then writeln('yes')else writeln('no');end.