Курсовая работа: Программа для шифрования данных с помощью шифра Тритемиуса

textattr:=116;

for i:=1 to 80 do write('=');

window (1,0,1,7);

for i:=1 to 6 do writeln('*');

window (1,8,80,9);

for i:=1 to 80 do write('=');

window (80,2,80,8);

for i:=1 to 6 do write ('*');

textattr:=3;

window (20,3,80,5);

write ('Work for programming on high-level languages');

window (25,5,80,6);

write ('Encryption based on Tritemius code');

textattr:=6;

window (44,7,80,8);

write ('Made by Valimyxammatov Rustam,PS-197');

window (5,9,80,25);

sdvig:=0;

textattr:=7;

repeat

clrscr;

probel1(28);writeln('MainMenu.Press:');

probel1(5);writeln('1 - for encryption');

probel1(5);writeln('2 - for decryption');

probel1(5);write('0 - for exit');

repeat

a:=readkey; {запрашиваем выбор меню}

until (a='0') or (a='1') or (a='2') or (a='3');

if (a='1') then