#3 Tomáš
Je tím myšleno tohle:
type
druh = (zena, muz, hermafrodit);
var
pohlavi:druh;
vstup:string;
begin
{readln(pohlavi); tohle nejde - chyba překladače}
readln(vstup); {neni problem}
writeln(vstup); {taky neni problem}
if vstup='muz' then pohlavi:=muz;
if vstup='zena' then pohlavi:=zena;
if copy(vstup,1,4)='herm' then pohlavi:=hermafrodit;
writeln(pohlavi); {tohle taky nejde - chyba překladače,
i kdyz koukam, ze nektere prekladace
tohle uz zkousnou a vypisou
identifikator hodnoty}
{U prekladacu, ktere to neumi, se to musi vypisovat
treba takhle:}
case pohlavi of
muz:writeln('muz');
zena:writeln('zena');
hermafrodit:writeln('hermafrodit');
end;
end.