Question

20 БАЛЛОВ!!! В Pascal доделать программу, чтобы она работала: типо дописать begin, var... ЗАДАЧА:
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(‘палиндром’);

Answer 1

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.