Помогите с задачей

[Dog]

Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если выполняется указанное условие, и FALSE в противном случае.(Оператор IF не использовать).

а) Введенный символ не является буквой латинского алфавита и символом "_" (подчеркивание);

[Alex Cones]

Var S:Char;
     t:Boolean;
 Begin
  ReadLn(S);
  Case Ord(S) of
   65..90, 95, 97..122: t:=TRUE;
  Else t:=FALSE;
  End;
 End;

P.S.
Моё тысячное сообщение.

[Dog]

Сообщение от Alex Cones

Var S:Char;
     t:Boolean;
 Begin
  ReadLn(S);
  Case Ord(S) of
   65..90, 95, 97..122: t:=TRUE;
  Else t:=FALSE;
  End;
 End;

P.S.
Моё тысячное сообщение.

че то я не в курю как она работает)))))))

[Alex Cones]

Case - оператор выбора. Ord - код символа. Еще вопросы?

[Dog]

прост не понят, зачем тут 62...67, 85,93...99

Спасибо,ты мне с основои помог)))Дальше сам разберусь

[Alex Cones]

прост не понят, зачем тут 62...67, 85,93...99

Это коды символов соответственно:
'A'..'Z', '_', 'a'..'z'

[Dog]

Сообщение от Alex Cones

Это коды символов соответственно:
'A'..'Z', '_', 'a'..'z'

Стал немножко догонять)))