Program z16_49;
uses crt;
var s, snew:String;
i:byte;
Function Palindrom(w:string):boolean;
Var i,m:byte;
begin
m:=length(w);
i:=1;
While (w[i]=w[m-i+1]) and (i<=m div 2) do
i:=i+1;
Palindrom:=(i>m div 2) end;
BEGIN
clrscr;
write('Vvedite stroku'); readln(s);
snew:='';
For i:=1 to length(s) do
if s[i]<>' ' then snew:=snew+s[i];
if Palindrom(snew) then writeln('Stroka-perevertysh') else writeln ('stroka ne perevertysh');
readln;
END.