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(‘палиндром’);

здраствуйте! Спасибо за ответ, но у меня ошибка Program3.pas(2) : Неожиданный символ ' '

Видимо Вы использовали иной диалект Паскаля

Либо, некорректно скопировали ответ к себе в компилятор

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.