[poli-smen]

Смотри, вот этот кусок:

Сообщение от Nevis

Код:

.....
     if (y=1900)or(y=1912)or(y=1924)or(y=1936)or(y=1948)or(y=1960)or(y=1972)or
     (y=1984)or(y=1996)or(y=2008)or(y=2020)or(y=2032)then writeln('Krisa');
     if (y=1901)or(y=1913)or(y=1925)or(y=1937)or(y=1949)or(y=1961)or(y=1973)or
     (y=1985)or(y=1997)or(y=2009)or(y=2021)or(y=2033)then writeln('Bik');
     if (y=1902)or(y=1914)or(y=1926)or(y=1938)or(y=1950)or(y=1962)or(y=1974)or
     (y=1986)or(y=1998)or(y=2010)or(y=2022)or(y=2034)then writeln('Tigr');
     if (y=1903)or(y=1915)or(y=1927)or(y=1939)or(y=1951)or(y=1963)or(y=1975)or
     (y=1987)or(y=1999)or(y=2011)or(y=2023)or(y=2035)then writeln('Krolik');
     if (y=1904)or(y=1916)or(y=1928)or(y=1940)or(y=1952)or(y=1964)or(y=1976)or
     (y=1988)or(y=2000)or(y=2012)or(y=2024)or(y=2036)then writeln('Drakon');
     if (y=1905)or(y=1917)or(y=1929)or(y=1941)or(y=1953)or(y=1965)or(y=1977)or
     (y=1989)or(y=2001)or(y=2013)or(y=2025)or(y=2037)then writeln('Zmeya');
     if (y=1906)or(y=1918)or(y=1930)or(y=1942)or(y=1954)or(y=1966)or(y=1978)or
     (y=1990)or(y=2002)or(y=2014)or(y=2026)or(y=2038)then writeln('Loshadi');
     if (y=1907)or(y=1919)or(y=1931)or(y=1943)or(y=1955)or(y=1967)or(y=1979)or
     (y=1991)or(y=2003)or(y=2015)or(y=2027)or(y=2039)then writeln('Ovca');
     if (y=1908)or(y=1920)or(y=1932)or(y=1944)or(y=1956)or(y=1968)or(y=1980)or
     (y=1992)or(y=2004)or(y=2016)or(y=2028)or(y=2040)then writeln('Obeziyana');
     if (y=1909)or(y=1921)or(y=1933)or(y=1945)or(y=1957)or(y=1969)or(y=1981)or
     (y=1993)or(y=2005)or(y=2017)or(y=2029)or(y=2041)then writeln('Petux');
     if (y=1910)or(y=1922)or(y=1934)or(y=1946)or(y=1958)or(y=1970)or(y=1982)or
     (y=1994)or(y=2006)or(y=2018)or(y=2030)or(y=2042)then writeln('Sobaka');
     if (y=1911)or(y=1923)or(y=1935)or(y=1947)or(y=1959)or(y=1971)or(y=1983)or
     (y=1995)or(y=2007)or(y=2019)or(y=2031)or(y=2043)then writeln('Svinya');
.....

Легко превращается в такой:

Код:

const
  cYear: array[0..11] of string = ('Крыса', 'Бык', 'Тигр', 'Кролик', 'Дракон',
    'Змея', 'Лошадь', 'Овца', 'Обезьяна', 'Петух', 'Собака', 'Свинья');
begin
  ShowMessage(cYear[(y - 1900) mod 12]);
.....