I would think the both are the ways of this world,
some old ways brought back by either tradition or
secrecy while others are made up to fit into everyday
life, or a specific place/spot. This is true as there
are sole examples of these. Such as a person to hide
their ways of how they go about life, or a family
custom revealed to their younger generations. But a
big example would be many software companies that make
ways and steps to follow by consumers for 'what they
want to do'. Quoted 'what they want to do' because
what they want to do is just a series of functions,
simulations, or protocols to run to do a task which is
preset by who created it.

But points of views of each of the two different
ways of how algorithms are brought into this world may
create a title or a credit to someone who either made
it or found it. Ownership rights towards an algorithm
is a bit too much, but someone was to say that their
creation was their's and their's alone, is not exactly
true. Someone elsewhere in the world, or even universe
may have the nearly same kind of algorithm with a
different style for the approach. I would think that
algorithms are to help people. Wether made for their
own purpose and usage, or for anyone else.

A title of who owns it shouldn't be put upon it, but
a credit should definitely be given towards the person
who invented it, brought it out to the knowledge of
the public or found it within either history or
archelogical artifacts as it is also a probability
that algorithms ingenious or already used for everyday
life is found from. If the fact is that these ways are
found from way back, a direct credit should go to the
person/people or culture that invented, then a side
notation of who'd brought it to present day to be used
once again. program calculator uses crt; var x,y,a,b:integer;{ Declaration} z:char; result:integer; begin clrscr; repeat a:=0; b:=0; repeat y:= port[889]; if y=207 then begin a:=a+1; {Loop} writeln(y); end else if y=15 then begin b:=b+1; writeln(y); end; delay(150); until y=143; writeln(a); writeln(b); if (a=1) then begin x:=1; {Squence} end else if (a=2) then begin x:=2; end (a=3) then begin x:=3; end else if (a=4) then begin x:=4; end else if (a=5) then begin x:=5; end else if (a=6) then begin x:=6; end else if (a=7) then begin x:=7; end else if (a=8) then begin x:=8; end else if (a=9) then begin x:=9; end else if (b=1) then begin x:='*'; end ELSE if (b=2) then begin z:='+'; end else if (b=3) then begin z:='-'; end else if (b=4) then begin z:='/'; end; begin readln(a);{Calculation parts from hereon} readln(b); readln(z); if z = '*' then result := a * b else if z = '/' then result := a div b else if z = '+' then result := a + b else if z = '-' then result := a - b ; writeln(result); readln; end; end. program morse(i,o); uses crt; var y,a,b:integer; x:char; {Declaration} begin clrscr; repeat a:=0; b:=0; repeat y:= port[889]; if {Creating the loop} y=207 then begin a:=a+1; writeln(y); end else if y=15 then begin b:=b+1; writeln(y); end; delay(150); until y=143; if (a=2) and (b=1) then {Sequence for the letters} begin x:='A'; write(x); end else if (a=1) and (b=2) then begin x:='B'; write(x); end else if (a=2) and (b=2) then begin x:='C' write(x); end else if (a=1) and (b=3) then begin x:='D' write(x); end else If (a=3) and (b=1) then begin x:='E' Write(x); end else if (a=1) and (b=1) then begin x:='F' write(x); end else if (a=4) and (b=1) then begin x:='G' write(x); end else if (a=1) and (b=4) then begin x:'H' write(x); end else if (a=2) and (b=3) then x:'I'; write(x); end else if (a=2) and (b=3) then x:'J'; write(x); end else if(a=2) and (b=3) then x:'K'; write(x); end else if(a=2) and (b=3) then x:'L'; write(x); end else if(a=2) and (b=3) then x:'M'; write(x); end else if(a=2) and (b=3) then x:'N'; write(x); end else if(a=2) and (b=3) then x:'O'; write(x); end else if(a=2) and (b=3) then x:'P'; write(x); end else if(a=2) and (b=3) then x:'Q'; write(x); end else if(a=2) and (b=3) then x:'R'; write(x); end else if(a=2) and (b=3) then x:'S'; write(x); end else if(a=2) and (b=3) then x:'T'; write(x); end else if(a=2) and (b=3) then x:'U'; write(x); end else if(a=2) and (b=3) then x:'V'; write(x); end else if(a=2) and (b=3) then x:'W'; write(x); end else if(a=2) and (b=3) then x:'X'; write(x); end else if(a=2) and (b=3) then x:'Y'; write(x); end else if else x:=' '; until (a=4) and (b=4) then end. {The end}