program Palindrom;

{ Untersuche, ob ein gegebenes Wort ein Palindrom ist.
 Copyright (c) 8/99 by Sebastian Koppehel, <basti@bastisoft.de> }

var
   Wort	: String;

function Palin(s : String) : Boolean;
var
   i  : Integer;
   Ok :  Boolean;
begin
   i := 1;
   Ok := True;
   while (i <= Length(s) div 2) and Ok do
   begin
      Ok := s[i] = s[Length(s)-i+1];
      Inc(i);
   end;
   Palin := Ok;
end;

begin
   if ParamCount = 0 then
   begin
      Write('Wort: ');
      Readln(Wort);
   end
   else Wort := ParamStr(1);
   if Palin(Wort) then Writeln(Wort,' ist ein Palindrom.')
   else Writeln(Wort,' ist kein Palindrom');
end.