Информатика! алгоритм сказки "репка"

0)начало 
1)посадил дед репку 
2)выростил 
3)начал ее вытягивать из земли 
4)позвал бабку 
5)тянут потянут ,вытянуть не могут 
5)позвали внучку 
6)тянут потянут ,вытянуть не могут 
7)позвали Жучку 
8)тянут потянут ,вытянуть не могут
9) позвали кошку 
10) тянут потянут, вытянуть не могут 
11)позвали мышку вытащили 
12)конец

1. Файл хранится в каталоге "россия"
С:/красная книга/россия/Растения_степей.doc
2. Если из каталога "россия" подняться на уровень вверх, то попадем в каталог "Красная книга"
С:/красная книга/
3. После создатия каталога "Евразия" в каталоге С:/красная книга/, путь станет таким: С:/красная книга/Евразия
4. Если преместить каталог "россия" в каталог "Евразия", путь станет таким: С:/красная книга/Евразия/россия
5. А так как в каталоге "россия" хранится файл "Растения_степей.doc, то полное имя файла стало таким: С:/красная книга/Евразия/россия/Растения_степей.doc.

Правило получения числа из функции Random(X):  

    0 <= RandomNum < X

1)

  От 1 до 10 – Random(10)+1

  От -10 до 10 – Random(21)-10

  От 50 до 100 – Random(51)+50

2)

  Y:=10+Random(5)

  Random(5):

       Левая граница = 0

       Правая граница = 4

  Отсюда, Y ∈ [10; 14].

3)

// PascalABC.NET

// Версия 3.4.2, сборка 1956 (01/30/19)

var

 arr: array[0..99] of integer;

 p, n: integer;

begin

 (p, n) := (0, 0);

 for var i := 0 to 99 do

 begin

   arr[i] := Random(41) - 20;

   if (arr[i] > 0) then inc(p)

   else if (arr[i] < 0) then inc(n);

 end;

 Println('Positive:', p);

 Println('Negative:', n);

end.