Написать программу, которая запрашивает слово и проверяет, является ли это слово палиндромом. Pascal ABC

"Анна" уже не палиндром?

набирайте в одном регистре. Нигде не сказано, что буквы в разных регистрах можно давать

Потому мы проверяем более менее популярные только

и как, хорошо оплачивается это?

это добровольная работа

подарки один раз присылали

Да уж.

var  s:string;  i,n:byte;  p:boolean;begin  Write('Введите слово: ');  Readln(s);  n:=Length(s);  p:=true;  for i:=1 to n div 2 do    if s[i]<>s[n-i+1] then    begin      p:=false;      break    end;  if p then Writeln('Палиндром')  else Writeln('Не палиндром')end.

var

    s: string;

function Invert(s: string): string;

var

    i: integer;

    t: string;

begin

    t := '';

    for i := 1 to length(s) do

        t := s[i] + t;

    

    Invert := t;

end;

begin

    Write('Введите слово: ');

    Readln(s);

    

    s := Trim(s);

    s := Uppercase(s);

    

    if Invert(s) = s then 

        Writeln('Палиндром')

    else 

        Writeln('Не палиндром');

end.