DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
7f9a7eadf513f5dd6ab734c27e2e5ef498f45a6d
[dsw-obn.git]
/
Test28.obn
1
MODULE
Test28
;
2
3
IMPORT
Out
;
4
5
TYPE
6
Name
=
ARRAY
16
OF
CHAR
;
7
8
VAR
9
key
:
ARRAY
128
OF
Name
;
10
name
:
Name
;
11
12
BEGIN
13
IF
key
[
0
] >
name
THEN
Out
.
Ln
;
END
;
14
END
Test28
.
15
16
Тест сравнения массивов символов
.