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

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