IE2021052602

FPC [main]

program primary_num;
{$mode objfpc}
{$modeswitch anonymousfunctions}

var
  P: TProcedure;

begin
  P:=@procedure begin end;
end.