Is there a human readable programming language? [closed]

Create an object called MyVar and initialize it to 10;
Take MyVar and call MyMethod() with parameters. . .

SET MYVAR TO 10.
EXECUTE MYMETHOD with 10, MYVAR.

ADD YEARS TO AGE.
MULTIPLY PRICE BY QUANTITY GIVING COST.
SUBTRACT DISCOUNT FROM COST GIVING FINAL-COST.

SET VAR_00_MYVAR_PIC99 TO 10.
EXECUTE PROC_10_MYMETHOD with 10, VAR_00_MYVAR_PIC99.

HAI
CAN HAS STDIO?
VISIBLE "HAI WORLD!"
KTHXBYE

"Hello World" by I.F. Author

    The story headline is "An Interactive Example".

    The Living Room is a room. "A comfortably furnished living room."
    The Kitchen is north of the Living Room.
    The Front Door is south of the Living Room.
    The Front Door is a door. The Front Door is closed. The Front Door is locked.

    The insurance salesman is a man in the Living Room.
    "An insurance salesman in a tacky polyester suit. He seems eager to speak to you."
    Understand "man" as the insurance salesman.

    A briefcase is carried by the insurance salesman.
    The description is "A slightly worn, black briefcase."
    Understand "case" as the briefcase.

    The insurance paperwork is in the briefcase.
    The description is "Page after page of small legalese." Understand "papers"
    or "documents" or "forms" as the paperwork.

    Instead of listening to the insurance salesman:
        say "The salesman bores you with a discussion of life insurance policies. From his briefcase he pulls some paperwork which he hands to you.";
        move the insurance paperwork to the player.

tell application "iTunes"
    activate
    play playlist "Party Shuffle"
end tell

bob is a parent of tim.
mary is a parent of bob.

?- X is a grandparent of tim.
X = mary

?- jim is a parent of bob.
false

Ingredients.
72 g haricot beans
101 eggs
108 g lard
111 cups oil
32 zucchinis
119 ml water
114 g red salmon
100 g dijon mustard
33 potatoes

Method.
Put potatoes into the mixing bowl. Put dijon mustard into the mixing bowl.
Put lard into the mixing bowl. Put red salmon into the mixing bowl. Put oil into the mixing bowl.
Put water into the mixing bowl. Put zucchinis into the mixing bowl. Put oil into the mixing bowl.
Put lard into the mixing bowl. Put lard into the mixing bowl. Put eggs into the mixing bowl.
Put haricot beans into the mixing bowl. Liquefy contents of the mixing bowl.
Pour contents of the mixing bowl into the baking dish.

tell application "Finder"
 set the percent_free to ¬
 (((the free space of the startup disk) / (the capacity of the startup disk)) * 100) div 1
end tell
if the percent_free is less than 10 then
 tell application (path to frontmost application as text)
 display dialog "The startup disk has only " & the percent_free & ¬
 " percent of its capacity available." & return & return & ¬
 "Should this script continue?" with icon 1
 end tell
end if

print "hello!" and open my $File, '<', $path or die "Couldn't open the file after saying hello!";

SELECT name, address FROM customers WHERE region = 'Europe'

test "Searching google for watin"
    goto "http://www.google.se"
    type "watin" into "q"
    click "btnG"
    assert that text "WatiN Home" exists
    assert that element "res" exists
end

if Time_To_Loop then
   for i in Some_Array loop
      Some_Array(i) := i;
   end loop;
end if;

if (timeToLoop != 0) {
   for (int i=0;i<SOME_ARRAY_LENGTH;i++) {
      someArray[i] = i;
   }
}

-module(listsort).
-export([by_length/1]).

 by_length(Lists) ->
    F = fun(A,B) when is_list(A), is_list(B) ->
            length(A) < length(B)
        end,
    qsort(Lists, F).

 qsort([], _)-> [];
 qsort([Pivot|Rest], Smaller) ->
     qsort([ X || X <- Rest, Smaller(X,Pivot)], Smaller)
     ++ [Pivot] ++
     qsort([ Y ||Y <- Rest, not(Smaller(Y, Pivot))], Smaller).

<doc keywords="x y z">          doc -keywords=<<x y z>>
  <title/>                        title
  <body id="db13">                body -id=db13
    This is text.                   <<This is text.>>
  </body>
</doc>