Дано двузначное число.Определить одинаковы ли его цифры

var chislo1,firs,secon: integer; {описание переменных}begin {старт алгоритма}read (chislo1); {считывание числа}firs:=chislo1 div 10; secon:=chislo1-firs*10; {определение первой и второй цифры}if firs=secon then write(\'цифры числа одинаковые\') {сравнение их и вывод результата}end.