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

1. подошёл к переходу 2. если красный свет то стоишь и ждёшь зелёного 3. при зелёном свете смотришь по сторонам, если нет машин, то идёшь. 4. доходя до середины ещё раз осмотрись 5. если всё чисто, продолжай путь

Program zhn; var   i1,i2,i3,m,n,i: integer;   a: array[1..20,1..20,1..20] of integer; begin     for i1: = 1 to 20 do begin       for i2: = 1 to 20 do begin           for i3: = 1 to 20 do begin               a[i1,i2,i3]: =random(100);               write(a[i1,i2,i3],' ');           end;       end;   end; end.

Var  a,b,c,n: integer; begin for a: =1 to 7 do   for b: =a+1 to 8 do     for c: =b+1 to 9 do       begin       n: =a*100+b*10+c;       write(n: 4)       end; end.var    i,j,n: integer;     a: array[1..4,1..5]of real; beginfor i: =1 to 4 do  begin  for j: =1 to 5 do    begin    a[i,j]: =random*2-1;     write(a[i,j]: 20: 15);     if a[i,j]> =0 then n: =n+1;     end;   writeln;   end; writeln('количество неотрицательных: ',n); end.var    i,j,sum: integer;     a: array[1..3,1..4]of integer; beginfor i: =1 to 3 do  for j: =1 to 4 do    readln(a[i,j]); writeln('массив: '); for i: =1 to 3 do  begin  for j: =1 to 4 do    begin    sum: =sum+a[i,j];     write(a[i,j]: 4);     end;   writeln('sum=': 8,sum);   sum: =0;   end; end.