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

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