somefucking

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program precryptoprocess;
var lib:array[1..242]of string;
libbytes:array[1..242]of string;
libnames:array[1..242]of string;
ls:array[1..11]of string;
lss:array[1..2]of string;
begin
ls[1]:='1111';
ls[2]:='1110';
ls[3]:='1101';
ls[4]:='1011';
ls[5]:='0111';
ls[6]:='0011';
ls[7]:='1001';
ls[8]:='1100';
ls[9]:='1000';
ls[10]:='0001';
ls[11]:='0000';
lss[1]:='1';
lss[2]:='0';
var sc:=0;
for var i:=1 to 11 do begin
for var j:=1 to 11 do begin
for var o:=1 to 2 do begin
sc:=sc+1;
libbytes[sc]:=ls[i]+ls[j]+lss[o];
write('Введи символ ',sc,' ->');readln(libnames[sc]);
end;
end;
end;
for var i:=1 to 242 do lib[i]:=libbytes[i]+libnames[i];
var h := new System.IO.StreamWriter('lib.txt', false, System.Text.Encoding.Default);
for var i:=1 to 242 do h.Write(lib[i]);
h.Close;
end.