В <span>байте 8 бит, 1 символ кодируется одним байтом, соответственно урок - 4 байт... Но это зависит от кодировки, в разных кодировках символ занимает разное количество байт.</span>
1-ое число: 1
2-ое число: 10
3-е число: 11
4-ое число: 100
5-ое число: 101
6-ое число: 110
7-ое число: 111
8-ое число: 1000
9-ое число: 1001
10-ое число: 1010
11-ое число: 1011
12-ое число: 1100
13-ое число: 1101
14-ое число: 1110
15-ое число: 1111
16-ое число: 10000
17-ое число: 10001
18-ое число: 10010
19-ое число: 10<span>011</span>
20-ое число: 10100
uses DrawMan;
var i:integer;
begin
Field(22,14);
for i:=1 to 4 do
begin
ToPoint(6,7+i);
PenDown;
OnVector(5,-5);
OnVector(5,5);
OnVector(i,-i);
OnVector(-i,-i);
OnVector(-5,5);
OnVector(-5,-5);
OnVector(-i,i);
OnVector(i,i);
PenUp;
end;
end.