Составить алгоритм перехода пешехода через дорогу

1. подойти к проезжей части. 2. если светофора нет, перейти к 6 3. если на светофоре зеленый свет, перейти к 6. 4. немного подождать. 5. перейти к 3. 6. если дорога свободна, перейти к 9 7. немного подождать. 8. перейти к 6. 9. перейти дорогу.

Var m: array[1..15] of real;   i: integer;   n: real;   begin  randomize;   for i: =1 to 15 do  begin  m : =random(20)-20;   if( m< 0) then  begin  m: =sqr(m);   end;