Se considera programul:
Program Sir;
Var x: string;
Begin
x:='abcdefghij';
Writeln(x);
Writeln(Lenght(x)); Readln
End.
Ce va afisa programul