Использование функции ord.(paskal)

[netcher]

Текстовые значение школьных балов заданые типом
type mark = (one, two, three, four, five, six, seven, eight, nine, ten, eleven, twelve).
Использовав функцию ord, по текстовому варианту школьных балов определить их числовой еквивалент.

[Armorer]

var 
Num : mark
***
begin
mark := four;
Writeln( ord(mark) );

[netcher]

можно поподробней?

[Sazary]

Куда уж подробнее?

uses crt;
type mark = (one, two, three, four, five, six, seven, eight, nine, ten, eleven, twelve);
var
num : mark;
begin
clrscr;
for num:=one to twelve do
 writeln(ord(num)+1);
readln;
end.

[netcher]

тут имелось ввиду, если ввести к примеру (two) то должно выдать (2)

[Sazary]

Сообщение от netcher

тут имелось ввиду, если ввести к примеру (two) то должно выдать (2)

Ну так и напишите как надо.
Я, как и Armorer, привел пример использования функции.
Для ввода - readln
Возврат номера - ord
Вывод - writeln