14 lines
155 B
ObjectPascal
14 lines
155 B
ObjectPascal
|
program main;
|
||
|
|
var ret:integer;
|
||
|
|
|
||
|
|
function Fn(f: integer): integer;
|
||
|
|
begin
|
||
|
|
Fn := f * 2;
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
ret := 0;
|
||
|
|
ret := Fn(10);
|
||
|
|
write(ret);
|
||
|
|
end.
|