Число-паліндром

Перевірте, чи є задане число паліндромом.

Число називається паліндромом, якщо воно читається зліва направо і зправа наліво однаково.

Вхідні дані

Одне невід'ємне ціле 32-х розрядне число.

Вихідні дані

Вивести "Yes" якщо число паліндром, в іншому випадку "No".

Вхідні дані

123

Вихідні дані

No

program chislo_pal;

var a : string;

i,k,p : integer;

BEGIN

readln (a);

k:=length(a);

i:=1; p:=1;

while (i<=k div 2) and (p=1) do begin

if a[i]=a[k] then k:=k-1 else p:=0;

i:=i+1;

end;

if p=1 then writeln('Yes') else writeln ('No');

END.