program budvardzio_linksniuote;
  { 37 u‘davinys }
{----------------------------------------------------------}
  const n          = 32;  { ilgiausias ‘odis }
  type linksniuote = (pirma, antra, trecia);
       zodis       = string [n];

  function linksn_nustatymas (zod : zodis) : linksniuote;
    { b–dvard‘io linksniuot‚s nustatymas }
    var zod_ilgis : integer;
  begin
    zod_ilgis := length (zod);
    if zod[zod_ilgis]  in  ['s', 'S']
       then       { vyrižkoji gimin‚ }
         case zod[zod_ilgis - 1] of
           'a', 'A' : linksn_nustatymas := pirma;
           'u', 'U' : linksn_nustatymas := antra;
           'i', 'I', 'y', 'Y' : linksn_nustatymas := trecia
         end
       else         { moterižkoji gimin‚ }
         case zod[zod_ilgis] of
           'a', 'A' : linksn_nustatymas := pirma;
           'i', 'I' : linksn_nustatymas := antra;
           '‚', '' : linksn_nustatymas := trecia
         end
  end;
{----------------------------------------------------------}
  var zod : zodis;
      lin : linksniuote;
begin
  write ('­veskite b–dvard: ');
  readln (zod);
  lin := linksn_nustatymas (zod);
  case lin of
    pirma : writeln ('Pirma linksniuot‚');
    antra : writeln ('Antra linksniuot‚');
    trecia : writeln ('Tre‡ia linksniuot‚')
  end
 end.