DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Поправлен hardcast int <-> real
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
IMPORT
SYSTEM
,
Out
;
4
5
TYPE
6
R
=
RECORD END
;
7
8
VAR
9
i
:
INTEGER
;
10
l
:
LONGINT
;
11
12
BEGIN
13
i
:=
SYSTEM
.
VAL
(
INTEGER
,
l
);
14
END
Test
.