crypto 0.0.1

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program coder;
{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
var kj:array of integer;
var ki:array of integer;
var h := new System.IO.StreamReader('input.txt',false, System.Text.Encoding.Default);
var text:string;
var n:integer;
text:=h.ReadLine;
n:=length(text);
writeln(n);
{for var i:=1 to 128 do begin
for var j;=1 to 3 do begin}
end.