Перед вами на рисунке представлена игровая среда. щенку добраться до мяча. допишите алгоритм, используя предложенные команды. пл=повернуть налево (90 градусов) пп=повернуть направо (90 градусов) и1=идти 1 клетку и2=идти 2 клетки и4=идти 4 клетки с=стоять 40

var

  n, i, j, summ: integer;

  a: array[1..100, 1..100] of integer;

begin

  write('n = '); readln(n);

  writeln('исходный массив: ');

  for i : = 1 to n do

  begin

      for j : = 1 to n do

      begin

          a[i, j] : = random(21);

          write(a[i, j]: 4);

      end;

      writeln;

  end;

  summ : = 0;

  for i : = 1 to n do

      summ : = summ + a[i,i];

  writeln('сумма элементов стоящих на главной диагонали равна ', summ);

end.

1)  program noname; var i,m : integer;   begin  read(m); if m> 31 then begin  for i: =31 to m do    if (i mod 16) = 0 then writeln(i);   end; end. 2)program noname; var i,n,x,c : integer;   begin  c: =1; x: =0; i: =0; while i< 5 do begin    if (c mod 13) = 0 then   begin   x: =x+c; i: =i+1; end;   c: =c+1; end;   write(x);   end. 3)program noname; var i,n,x,c : integer;   begin  read(n); c: =1; x: =1; i: =0; while i< n do begin  if (c mod 11) = 0 then begin   x: =x*c; i: =i+1; end; c: =c+1; end;   write(x);   end. 4)program noname; var i,m,x : integer;   begin x: =0; i: =1; while x< 7 do begin    if (i mod 7) = 0 then   begin   writeln(i); x: =x+1;   end; i: =i+1; end; end.