{Dineis symboloakoluhties kai elegxei an einai palindromiki px.anna}
{episis dinei kai stistika stoixeia}

program symboloakolouthia (input,output);
var l:array[1..50] of char;
a,b,c,i,k,j:integer; a1,b1,d:real; t:char;
begin
a1:=0;
b1:=0;
j:=0;
repeat
j:=j+1;
writeln('Tha elexo an mia symboloakolouthia 50 to polly haracthron');
writeln('Doste':8,j:3, 'ti symboloakolouthia':23);
i:=0;
while not eoln and (i>=0) and (i<=50) do
begin
i:=i+1;
read(l[i]);
c:=i
end;
readln;
k:=0;
for a:=1 to c div 2 do
begin
b:=c-a+1;
if l[a]=l[b] then k:=k+1
end;
if k=c div 2 then
begin
a1:=a1+1; writeln('H symboloakolouthia einai palindromiki')
end;
if k<>c div 2 then
begin
b1:=b1+1; writeln('H symboloakolouthia den einai palindromiki')
end;
write('Gia na synexisis dose y,Gia telos dose n');
readln(t)
until t='n';
write('statistika:',(a1/(a1+b1))*100:4:1,'%')
end.