Технический форум - Помогите написать программу. Паскаль

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите написать программу. Паскаль

Программа вводит произвольную последовательность символов («*» - признак конца ввода)
При вводе раскрасить цифры – зелёным,
маленькие латинские – желтым,
«!» «?» - красным,
а остальные символы сиреневым(5-й цвет).

Цитата:

Сообщение от firm.nice (Сообщение 718438)

И какие проблемы? Пожалуйста:

Код:

Uses CRT;

Var

 C:Char;

Begin

 ClrScr;

 Repeat

  C:=Readkey;

  If Ord(C) in [48..57] then TextColor(2) else

  If Ord(C) in [97..122] then TextColor(6) else

  If (C='!') or (C='?') then TextColor(4) else

  TextColor(5);

  Write(C);

 Until C='*';

 NormVideo;

End.

Запрос от Кэтти перенесен сюда:
http://www.tehnari.ru/f41/t72438/
Эта ТЕМА ЗАКРЫТА