mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-07 06:40:03 +02:00
16 lines
211 B
ObjectPascal
16 lines
211 B
ObjectPascal
Program Example36;
|
|
|
|
{ Program to demonstrate the Length function. }
|
|
|
|
Var S : String;
|
|
I : Integer;
|
|
|
|
begin
|
|
S:='';
|
|
for i:=1 to 10 do
|
|
begin
|
|
S:=S+'*';
|
|
Writeln (Length(S):2,' : ',s);
|
|
end;
|
|
end.
|