Added a new feature

Added procedure called "john1" that prints 5 numbers
(2-4).

Signed-off-by: John <john@ghzyabin3.git.ml>