Используйте команду по своему усмотрению

var   s:string;
{функция проверки на палиндром} function palind(s:string):boolean; var   i:integer;   fl:boolean; begin   fl:=true;   for i:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false;   Result:=fl end;

{основная программа} begin   writeln('Введите строку...');   readln(s);   if palind(s) then     writeln('Данная строка является палиндромом!')   else     writeln('Данная строка НЕ является палиндромом!') end.

Без функции: var s:string;
i:integer; palin:boolean; {основная программа} begin   writeln('Введите строку...');   readln(s);
fl:=true;   for i:=1 to length(s) div 2 do     if s[i]<>s[length(s)-i+1] then       fl:=false;
if palin then     writeln('Данная строка является палиндромом!') else     writeln('Данная строка НЕ является палиндромом!') end.

Песенка Единиц Единицы мы дружны, мы дружны, мы дружны, Информации верны, мы верны, мы верны, И считать её должны, да должны, да должны. Общее для нас важней, и ценней, и милей Станем мы ещё дружней, веселей и нужней. Все мы связаны друг с другом И гордимся своим кругом. Неразрывны, неразлучны, Вместе нам совсем не скучно. Будем мы Единство дружбой укреплять, Информацию повсюду будем прославлять. Не разлучит нас никто, нас никто, нас никто, Все мы целое одно, мы одно, мы одно. Единицы мы дружны, мы дружны, мы дружны, Информации верны, мы верны, мы верны. Полюбить вы нас должны, да должны. Забывать про нас не нужно Вы живите с нами дружно Мы вам будем Информацию считать Биты, Байты, Килобайты Перед вами здесь стоят Мегабайты, Гигабайты Дружно все вам говорят, Что они стараться будут Информацию считать И ошибки в её счете Ни за что не допускать Ну а вы старайтесь тоже, Ошибаться вам негоже Дружно с нами вы живите Нас получше изучите. Вместе будем мы трудиться Не захочется лениться Никому и никогда Труд нам радостен всегда.Ну а сейчас наш бал завершается Гости все по домам разъезжаются Но Единиц информации они уже не забудут И правильно использовать их будут.