13 lines
152 B
ObjectPascal
13 lines
152 B
ObjectPascal
var sg:string;
|
|
|
|
function sf:string;
|
|
var sl:string;
|
|
begin
|
|
writeln(length(sl));
|
|
end;
|
|
|
|
begin
|
|
writeln(length(sf));
|
|
writeln(length(sg));
|
|
readln;
|
|
end. |