Оптимальні програми

Var Look: Char;

Procedure GetChar;

Begin

Read(Look);

End;

Procedure Error(s: String);

Begin

WriteLn;

WriteLn(^G, 'Помилка : ', s, '.');

End;

Procedure Abort(s: String);

Begin

Error(s);

Halt;

End;

Procedure Expected(s: String);

Begin

Abort(s + ' Очікується');

End;

Function IsAlpha(c: Char): Boolean;

Begin

IsAlpha := UpCase(c) In ['A'..'Z'];

End;

Function IsDigit(c: Char): Boolean;

Begin