Ну скажем...
1 = а
2 = б
3 = в
4 = г
и так далее.
Но можно скажем сделать так...
10000 = а
11000 = б
11100 = в
11110 = г
11111 = д
и так далее.
Шифр 11000 10000 11110 = баг
И, таким образом, ты можешь придумывать свои кодировки
Program z7; Var a,b:integer; dx,y,x:real;Begin Write('Введите начало отрезка а = '); readln(a); Write('Введите конец отрезка b = '); readln(b); Write('Введите шаг dx = '); readln(dx); x:=a; writeln(' X Y'); while x<=b do begin y:=x; writeln(x,' ',y); x:=x+dx; end;End.