ساختار select-case

[BORHAN TEC]

سلام
به این مثال توجه کنید:

var

  num: string;

begin

  num := Random(10);

  case num of

    1:

      Writeln('One');

    2:

      Writeln('Two');

    3 .. 4:

      Writeln('Three or four');

  else

    Writeln('Others');

  end;

  Readln;

end.