function Dashunya(number: longint): string;
var
  st: string;
  i, k: byte;
begin
  Str(number, st);
  k := 0;
  for i := 1 to length(st) div 2 do
  begin
    if st[i] = st[length(st) - i + 1] then inc(k);
  end;
  case (length(st) div 2) - k of
    0: result := 'симметрия';
    1: result := 'частичная симметрия';
  else result := 'не симметрия';
  end;
end;