var S: string;
     i: Integer;
     Polindr: Boolean;
   
begin
write('Введите слово ');
   ReadLn (S);
   Polindr := True;
   for i := 1 to Length (S) div 2 do
     if S[i] <> S[Length(S)-i+1] then
     begin
       Polindr := False;
       Break;
     end; {if}
   WriteLn (Polindr);
end.

4. Дано натуральное число N. Определить, является ли оно совершенным. Совершенное число N равно сумме всех своих делителей, не превосходящих само N.

  Var  n,i,sum:word;
  Begin
    Write('Введите  натуральное  число');
    Readln(n);
    Sum:=0;
    for i:=1 to n div 2 do if n mod I=0 then sum:=sum+i;
    If sum=n then writeln('число ',n,'  совершенное')
      Else writeln(('число ',n,' не  совершенное' );
    Readln
  End.