const
  arr: array of string = ('Acura', 'Alfa Romeo', 'Alpina', 'Asia', 'Aston Martin',
                          'Audi', 'AC', 'Bentley', 'BMW', 'Brilliance', 'Bugatti',
                          'Buick', 'BYD', 'Cadillac', 'Changan', 'Chery', 'Chevrolet',
                          'Chrysler', 'Citroen', 'Dacia', 'Daewoo', 'Daihatsu',
                          'Daimler', 'Datsun', 'DeLorean', 'Derways', 'Dodge',
                          'Dongfeng', 'Eagle', 'FAW', 'Ferrari', 'Fiat', 'Ford',
                          'Fisker', 'Geely', 'Geo', 'GMC', 'Great Wall', 'Genesis',
                          'Hafei', 'Haima', 'Haval', 'Hawtai', 'Honda', 'Hummer',
                          'Hyundai', 'Infiniti', 'Iran Khodro', 'Isuzu', 'JAC',
                          'Jaguar', 'Jeep', 'Kia', 'Koenigsegg', 'Lamborghini',
                          'Lancia', 'Land Rover', 'Lexus', 'Lifan', 'Lincoln',
                          'Lotus', 'Luxgen', 'Maserati', 'Maybach', 'Mazda',
                          'Mercedes-Benz', 'Mercury', 'Mini', 'Mitsubishi',
                          'Mitsuoka', 'McLaren', 'Nissan', 'Oldsmobile', 'Opel',
                          'Peugeot', 'Plymouth', 'Pontiac', 'Porsche', 'Proton',
                          'Pagani', 'Ravon', 'Renault', 'Renault Samsung',
                          'Rolls-Royce', 'Rover', 'Saab', 'Saturn', 'Scion',
                          'SEAT', 'Skoda', 'Smart', 'SsangYong', 'Subaru', 'Suzuki',
                          'Tesla', 'Tianye', 'Toyota', 'TVR', 'Volkswagen', 'Volvo',
                          'Vortex', 'Xin Kai', 'ZX', 'Zotye', 'ГАЗ', 'ЗАЗ', 'ИЖ',
                          'Лада', 'ЛуАЗ', 'Москвич', 'ТагАЗ', 'УАЗ', 'Marussia', 'Wiesmann');

begin
  if ReadLnString('Введите слово:') = 'машины' then arr.Println(newLine) else WriteLn('Пока :)');
end.