13 lines
132 B
ObjectPascal
13 lines
132 B
ObjectPascal
function f1 : integer;
|
|
begin
|
|
Result := 1;
|
|
end;
|
|
|
|
function f2 : integer;
|
|
begin
|
|
Result := 4;
|
|
end;
|
|
|
|
begin
|
|
for var i := f1 to f2 do;
|
|
end. |