function pavard(pav : string[20]) : string;
   var i : integer; {pavardės ilgis}
begin
   i := length(pav);  {randame kiek raidžių sudaro yra pavardėje}
   if (pav[i] = 'ė') and (pav[i-1] = 't')    {tikriname kieno tai pavardė}
      then pavard := 'neištekėjusios moters'
      else if (pav[i] = 'ė') and (pav[i-1] = 'n')
             then pavard := 'ištekejusios moters'
             else if (pav[i] = 'a') or (pav[i] = 's')
                     then pavard := 'vyras';
end;