Программа паскаль. дано трехзначное число. определите, является ли его десятичная запись симметричной. если число симметричное, то выведите 1, иначе выведите 0

Var x: integer;
begin
write('Введите трехзначное число: ');
readln(x);
if ( x < 100 ) OR ( x > 1000 ) then writeln('Ошибка! Число не трехзначное.')
else
if ( x div 100 ) = ( x mod 100 ) then writeln('1')
else writeln('0');
end.