Даны три слова. Выяснить, является ли хоть одно из них палиндромом

const yes = 'является палиндромом'; 
 
 function isPalindrom(s0: string): boolean;
 var s: string;
      i: integer;
 begin
  s:= '';
  for i:= length(s0) downto 1 do
   s:= s + s0[i];
  result:= s = s0;
 end;
 
begin
 write('s1 = ');
 readln(s1);
 if isPalindrom(s1)
  then writeln(yes)
  else writeln('не ' + yes);
 write('s2 = ');
 readln(s2);
 if isPalindrom(s2)
  then writeln(yes)
  else writeln('не ' + yes);
 write('s3 = ');
 readln(s3);
 if isPalindrom(s3)
  then writeln(yes)
  else writeln('не ' + yes);
end.

function IsPalindrom(const s: String): Boolean;
var i, j: Integer;
begin
  i:=1; j:=Length(s);
  while (i<j) and (s[i]=s[j]) do begin
    Inc(i); Dec(j);
  end;
  IsPalindrom:=i>=j;
end;
var
  i: Integer;
  s: String;
begin
  for i:=1 to 3 do begin
    Write('s',i,': '); ReadLn(s);
    if not IsPalindrom(s) then Write('НЕ '); WriteLn('палиндром');
  end;
end.

var
  i, k: Integer;
  s: String;
begin {k:=0;}
  for i:=1 to 3 do begin
    Write('s',i,': '); ReadLn(s);
    if IsPalindrom(s) then Inc(k);
  end;
  WriteLn(k>0);
end.

var
  i: Integer;
  s: String;
  b: Boolean;
begin {k:=0;}
  for i:=1 to 3 do begin
    Write('s',i,': '); ReadLn(s);
    b:=b or IsPalindrom(s);
  end;
  WriteLn(b);
end.

function IsPalindrom(const s: string): boolean;
var i, j: Integer;
begin
 i:=1;
 j:=Length(s);
 while (i<=j div 2) and (s[i]=s[j-i+1]) do
   inc(i);
 Result:= i>j div 2;
end;