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

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