Даны 2 натуральных числа выяснить является ли хоть одно из них палиндромом (перевёртышем) - Pascal - Ответ 1146314

program sly;                                                                                    
uses crt;                              
var s:string;                                                                                      
k,i,n:integer;                                                                
fl:boolean;                                                                   
begin                                                                                             
clrscr;                                   
readln (s);                                                                                        
n:=length(s);                                                                 
fl:=true;                                                                     
for i:=1 to n div 2 do                                                        
if s[i]<>s[n-i+1] then fl:=false;                                             
if fl then writeln ('polidrom')                                               
else writeln ('Ne polidrom');                                                 
readln;                                   
end.