помогите правильно начать хадачу Опции

[eldar219]

нам дано задание :
type название =(ноль,один,два,три,четыре,пять);
Var:d:'0'..'5';n:название
По литере-цифре d присвоить переменной n название этой цифры

я не могу панять как записать type
вот как я начал:

Код

program by_eldar;
uses crt;
const
Nul='najmite na cifru nul';
Odin='najmite na cifru odin';
Dva='najmite na cifru dva';
Tri='najmite na cifru tri';
Chetiri='najmite na cifru chetiri';
Pyat='najmite na cifru pyat';
var d:real;type:n;
begin
clrscr;

[Unconnected]

Можно так:

type MyType = (Odin,Dva,Tri,Chetire,Pyat);

var d:'0'..'5';
    n:MyType;

begin
  readln(d);
  case d of
    '1':n:=Odin;
    '2':n:=Dva;
    '3':n:=Tri;
    '4':n:=Chetire;
    '5':n:=Pyat;
  end;
  readln;
end.

[eldar219]

почему при вводе цифр от 1 до 5 название самой цифры не не пишется??

[Unconnected]

А должно? В задании этого не было.

[eldar219]

А должно? В задании этого не было.

аа понятно я сам запутался))),спасибо большое за помощь

Добавлено через 1 мин.
да ну вообщето нужно не зря они название цифр дали

[volvo]

да ну вообщето нужно

Вариант №1 - для начинающих, "в лоб":

type
  MyType = (Null,Odin,Dva,Tri,Chetire,Pyat);
const
  title: array[MyType] of string =
  ('Null','Odin','Dva','Tri','Chetire','Pyat');

var d:'0'..'5';
    n:MyType;
begin
  readln(d);
  case d of
    '0':n:=Null;
    '1':n:=Odin;
    '2':n:=Dva;
    '3':n:=Tri;
    '4':n:=Chetire;
    '5':n:=Pyat;
  end;
  writeln(title[n]);
  readln;
end.

Вариант №2 - более продвинутый, требуется знать, что такое перечислимые типы данных, и как они представляются:

type
  MyType = (Null,Odin,Dva,Tri,Chetire,Pyat);
const
  title: array[MyType] of string =
  ('Null','Odin','Dva','Tri','Chetire','Pyat');

var d:'0'..'5';
    n:MyType;
begin
  readln(d);
  n := MyType(ord(d) - ord('0'));
  writeln(title[n]);
  readln;
end.