Canon/open_set/07_var_defn_func.pas

14 lines
119 B
ObjectPascal
Raw Normal View History

2024-03-09 20:11:27 +08:00
program main;
var
a: integer;
function defn: integer;
begin
defn := 4;
end;
begin
a := defn;
write(a);
end.