Запишите фрагмент программы,который позволит для заданного пятизначного числа,определить,является ли оно палиндромом.

var c: string;beginwrite('Введите пятизначное число: ');readln(c);if ( c[1] = c[5] ) AND ( c[2] = c[4] ) then writeln('Число является палиндромом!')else writeln('Число не является палиндромом!');end.