Palindrom_1

## //палиндром
var str1 := readstring;
var str2 := '';
var len := str1.Length;
//Print(len);
for var i := 0 to len-1 do
  begin
    var chr := str1.Substring(len-i-1,1);
    str2 += chr;
  end;
//Print(str2);
if str1 <> str2 then print('Не палиндром')
else print('Палиндром');