14 lines
195 B
Text
14 lines
195 B
Text
MODULE Size;
|
|
|
|
IMPORT Out;
|
|
|
|
VAR s: LONGINT;
|
|
string: ARRAY 5 OF CHAR;
|
|
|
|
BEGIN
|
|
string := "Foo";
|
|
s := LEN(string);
|
|
Out.String("Size: ");
|
|
Out.LongInt(s,0);
|
|
Out.Ln;
|
|
END Size.
|