Canon/open_set/73_param_name.pas

14 lines
155 B
ObjectPascal
Raw Normal View History

program main;
var ret:integer;
function Fn(f: integer): integer;
begin
Fn := f * 2;
end;
begin
ret := 0;
ret := Fn(10);
write(ret);
end.