Запишите алгоритм перемещения исполнителя автобус в клетку с ёлочкой.

8, 1, 4, 1, 5, 9, 6, 7, 2

program xxx;

    var z,d,k : integer;

begin

  z: =2; d: =7; k: =0;

  while (d> =z) do

    begin

      d: =d-z;

        k: =k+1

      end;

  writeln(d,'    ',k);

  readln

end.

4 клетки вниз и 7 вправо                                                                                                                           

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.