Помогите с задачкой по паскалю

Помогите с задачкой по паскалю.
Дано целое трехзначное число a. Выяснить, является ли заданное число палиндромом. Если число является палиндромом, то вывести YES, иначе NO.

Палиндромом называется последовательность символов, которые читаются одинаково слева направо и справо на лево.
Например: 343

я сделал так:
var a,z,x,c:integer;
begin
read(a);
z:=a div 100;
x:=a div 10 mod 10;
c:=a mod 10;
if (z+1=x) and (x-1=c) then write('YES')
else write('NO')
end.

другим способом можете помочь решить задачу?

  • program pl;

    var
    a: Integer;

    begin
    read(a);
    if (a div 100) = (a mod 10)
    then writeln('YES') else writeln('NO');

    end.

  • проверить число на палиндром ограничений по длине нет

    program Project1;

    var
    isAPalindrom : integer;
    j,k:integer;
    s : string;
    yes : boolean;
    begin
    isAPalindrom := 12321;
    str(isAPalindrom,s);
    k := length(s);
    yes := true;
    for j :=1 to k div(2) do begin
    if s[ j ] <> s[ k-j+1 ] then begin
    yes := false;
    break
    end;
    end;
    writeln(s,' ',yes);
    readln
    end.