program digit;
type name = (zero,one,two,three,four,five);
var d:integer;
    n:name;
begin
writeln('Введите цифру');
readln(d);
case d of
0: n:=zero;
1: n:=one;
2: n:=two;
3: n:=three;
4: n:=four;
5: n:=five;
end;
writeln(n);
end.