procedure Test(x: real:=sin(x));
begin
  
end;
begin
  
end.