Курсовая работа: Шифровка и дешифровка текста

write('Нажмите любую клавишу...');

ReadKey;

END;

{Процедура вывода основного меню}

PROCEDURE Menu;

BEGIN

repeat

begin

ClrScr;

writeln('Программа шифровки и дешифровки текста!!!');

writeln;

writeln('1. Шифровать текст');

writeln('2. Дешифровать текст');

writeln('3. Выход');

writeln;

write('Выберите пункт меню: ');

readln(men);

case men of

1 : CryptP;

2 : DecryptP;

end;

end;

until men=3;

END;

BEGIN

ClrScr;

Menu;

END.

Приложение 2. Результаты работы.