mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 17:48:01 +02:00
26 lines
265 B
ObjectPascal
26 lines
265 B
ObjectPascal
unit uw11182;
|
|
|
|
{$inline on}
|
|
|
|
interface
|
|
|
|
procedure test(k: longint); inline;
|
|
|
|
implementation
|
|
|
|
function f(a: longint): longint; inline;
|
|
begin
|
|
f:=a+a;
|
|
end;
|
|
|
|
procedure test(k: longint);
|
|
var
|
|
i: longint;
|
|
begin
|
|
for i := f(k) to f(k+5) do
|
|
writeln(i);
|
|
end;
|
|
|
|
|
|
end.
|