Tema gana sena, tačiau neseniai pats gavau šį uždavinį su tema vardinis tipas, tai mano variantas būtų Function kur(x:valstybes):zemynai; var val:valstybes; n:integer; begin n:=50;//apsidrauziam jei nerastu for val:=Prancuzija to Gajana do //nuo pirmojo eiles numerio iki paskutiniojo if x=val then begin n:=ord(val); break; end;/*jei randama valstybe, grazinamas eiles numeris ord(val)*/ case(n div 10) of //kadangi miestu po 10 ir jie surikiuoti pagal valstybes, tai 0-9 eiles nr bus Europa ir t.t. 0: begin writeln(‘Europoje‘); kur:=Europa; end; 1: begin writeln
