Информатика 8 класс. Задача на питоне

выучи три команды из СКИ (системы команд исполнителя) "Стрелочка". Это будет быстрее чем задавать вопросы в И-нет:
ШАГ -перемещение на одно деление с рисованием линии;
ПРЫЖОК -перемещение на одно деление без рисования линии;
ПОВОРОТ -изменение направления движения на 90 гр. против часовой стрелки.
А пока держи алгоритмы (исходные данные то же, что и в предыдущих примерах:

Буква Ш:
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ПРЫЖОК    ПОВОРОТ    ШАГ    ШАГКОН

Буква Ц
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПРЫЖОК    ПРЫЖОК    ПРЫЖОК    ПОВОРОТ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГКОН
Буква Ч
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПРЫЖОК    ШАГКОН

Буква Б
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ПРЫЖОК    ПОВОРОТ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ШАГКОН

Буква П
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ПРЫЖОК    ПОВОРОТ    ПОВОРОТ    ПОВОРОТ    ШАГ    ШАГКОН

Буква Е
АЛГОРИТМ ПУТЬ_0    Дано: Исполнитель в т.А    Надо: Воспроизвести образецНАЧ    ШАГ    ПОВОРОТ    ПОВОРОТ    ПРЫЖОК    ПОВОРОТ    ШАГ    ШАГ    ПОВОРОТ    ШАГ    ПОВОРОТ    ПРЫЖОК    ПОВОРОТ    ШАГКОН

Program z1; 
Var i,n,a,b,c:integer;     
 m: array [1..1000] of integer;
Begin 
write('Введите кол-во чисел - '); 
readln(n);   
randomize;   
a:=0;   b:=0;   c:=0; 
 for i:=1 to n do 
begin   
m[i]:=random(100)-50;   
 write (m[i],' ');  end;    for i:=1 to n do    if (m[i]=0) then a:=a+1;      for i:=1 to n do    if (m[i]>0) then b:=b+1;      for i:=1 to n do    if (m[i]<0) then c:=c+1;  writeln;  writeln ('Кол-во нулей - ',a);  writeln ('Кол-во положительных чисел - ',b);  writeln ('Кол-во отрицательных чисел - ',c);End.