var
    s: string;
    i, flag: integer;
begin
    write('Please, enter the string: ');
    readln(s);
    flag := 0;
    for i := 1 to length(s) div 2 do
        if s[i] <> s[length(s)-i+1] then
            flag := 1;
    if flag = 0 then
        write('Its a palindrome.')
	else
        write('Its not a palindrome.');
readln
end.