Free pascal. написать программу детектирования слова-полиндрома

Написал я Вам программу, у себя проверил - работает, думаю и у вас должно.

Program Palindrome_or_not;

var
s: string;
i,f: byte;
begin
write('Введите слово: ');
readln(s);
f := 0;
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s)-i+1] then begin
writeln('Введённое слово не является палиндромом');
f := 1;
break
end;
if f = 0 then
write('Введённое слово является палиндромом');
end.

Надеюсь удачи :)

Объяснение:

Вредная информация-Реклама игр для детей старше 18 лет , реклама неприличных книг, разные посты в соц сетях которые являются пропагандой чего то плохого , азартные игры, помимо опасностей человеческих, есть еще опасности чисто технические. Заблудившись в сети очень легко заразить компьютер вредоносными программами. Кража паролей и прочей конфиденциальной информации, спам от вашего имени, хулиганство, вымогательство, угрозы

нежелательная информация. В интернете кроме орнографических сайтов существуют ресурсы, на которых в подробностях рассказывается о создании взрывных или поджигающих устройств, идеализируется такое понятие, как суіцид, употребление алкоголя, табака и запрещенных нарк@тических препаратов.

для твоего образца.

function cat(name, age) {

this.excuses = ['пнх', 'схб' /*здесь можно написать отмазы ленивого кота*/];

this.name = name;

this.age = age;

this.прыжков = 0;

}

cat.prototype = {

sayhello: function () { console.log("hello! my name is " + this.name); },

jump: function (height) {

  if (this.прыжков > 3) console.log(this.excuses[math.random() * this.excuses.length | 0]);

  else console.log(height > this.age ? "nonono i'm too young. bro! " : "jump");

  this.прыжков++;

}

};