Create a package which contains a procedure to accept a text and to check whether it is palindrome or not.

PROGRAM:

CREATE OR REPLACE PACKAGE Checks AS
PROCEDURE palindrome(s in VARCHAR);
END Checks;
/
CREATE OR REPLACE PACKAGE BODY Checks AS
l VARCHAR(100);
t VARCHAR(100);
PROCEDURE palindrome(s in VARCHAR) IS
BEGIN
FOR i IN REVERSE 1..Length(s) LOOP
l := Substr(s, i, 1);
t := t ||'' ||l;
END LOOP;
IF t = s THEN
dbms_output.Put_line(t ||'' ||' is palindrome');
ELSE
dbms_output.Put_line(t ||'' ||' is not palindrome');
END IF;
END palindrome;
END Checks;
/
EXECUTE checks.palindrome('abccba');
EXECUTE checks.palindrome('abccbaabc');

Output:-