RosettaCodeData/Task/String-length/Oberon/string-length-1.oberon

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.