test2.cs2

来自「Delphi script parser」· CS2 代码 · 共 9 行

Program CajScriptTest;
var
  text :string;
Begin
  Writeln('Type in some text');
  readln(text);
  writeln('The length of this text is : '+IntTostr(length(text)));
End.