Как в исполнителе Черепаха сделать этот алгоритм

                                Алгоритм перехода улицы по свотофору

1.Посмотреть какой цвет на светофоре

2.Если зеленый то посмотреть направо 

3.Посмотреть налево

4.Если машын нету, то начать переходить

5.Дойти до островка и снова  посмотреть направо и налево и перейти дорогу

                                  Алгоритм посадки дерева

1.Взять лопату и выкопать ямку, положыть лопату

2.Взять садженец и поставить его в ямку

3.Взять ведро и полить садженец, положыть ведро

4.Взять лопату и закопать садженец, положыть лопату

5.Взять ведро и полить садженец, положить ведро

Задача: знайти суму всіх натуральних чисел від 1 до п.
Program Suma 2;
var I, n, s: integer;
begin
writeln (‘Ведіть кількість натуральних чисел:’);
 write (‘N=’);
readln (n);

Задача: знайти суму всіх натуральних чисел від 1 до п.
Program Suma 2;
var I, n, s: integer;
begin
writeln (‘Ведіть кількість натуральних чисел:’);
 write (‘N=’);
readln (n);
 I:=1; s:=0;
 repeat
  s:=s+I;
  I:=I+1;
 until I>n;
 writeln (‘s=’,s);

 I:=1; s:=0;
 repeat
  s:=s+I;
  I:=I+1;
 until I>n;
 writeln (‘s=’,s);