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

program symmetry;
var n: integer;
begin
n:=1;
//Цикл, циклический до тех пор,
//пока не будет введено трехзначное число
while ((nlt;100) or (ngt;999)) do
begin
Writeln(Введите трехзначное число);
Readln(n);
end;
//Если число сотен равно остатку после дробления на 10 тогда
//число n симметрично
if n div 100 = n mod 10 then write(Число , n, перевертыш)
else write(Число , n, не перевертыш)
end.