20 ! в pascal доделать программу, чтобы она работала: типо дописать begin, : readln(s); l: = length(s); m: = trunc(l/2); for i: = 1 to m if s[i]< > s[l+1-i] then k: =1; if k=1 then writeln(‘не палиндром’) else writeln(‘палиндром’);

Var
  s:string;
  i,l,m,k:integer;
 
begin
  Readln(s);
  l:=Length(s);
  m:=l div 2;
  for i:=1 to m do
    if s[i]<>s[l+1-i] then k:=1;
  if k=1 then Writeln('не палиндром')
  else Writeln('палиндром')
end.