· Y – зґвалтування

· K – крадіжок

· S – зради відчизні

Lis – процедура яка вконує аналіз та виводить його на екран

po4atik – виведення на екран пунктів меню

strila – управління курсором для вибору пункту меню

tread – малює рамочку

vx – занесення до файлу відомостей які вніс користувач

st – для видалення файлу

2. Алгоритми

2.1 Алгоритм основної програми

3. Вихідний код програми

uses crt,dos;

type o=record

no:string[10];

u,y,k,s:integer;

end;

var st1,st2,st3,st4:string;

q,v:byte;

z:char;

f:file of o; pe:o;

{------------}

procedure ramo4ka (x1,y1,x2,y2,a,b:byte);

var i:integer;

begin

textbackground(a);

textcolor(b);

window (x1,y1,x2,y2);

write('Ъ');

for i:=1 to (x2-x1)-1 do

begin

write('Д');