Дано трехзначное число. Напишите программу, которая определяет: является ли число "перевертышем", т. е. числом, десяти на запись которого читается одинаково слева направо и справа налево

program symmetry;

var n: integer;

begin

n:=1;

//Цикл, повторяющийся до тех пор,

//пока не будет введено трехзначное число

while ((n999)) do

begin

Writeln ('Введите трехзначное число');

Readln (n);

end;

//Если число сотен равно остатку после деления на 10 тогда

//число n симметрично

if n div 100 = n mod 10 then write ('Число ', n, ' перевертыш')

else write ('Число ', n, ' не перевертыш')

end.