Добавить пояснения к каждой строчке задачи Program z1; var i,j: byte; begin for i:=1 to 9 do begin for j:=1 to 9 do write(i*j:4);

Program z1; // задаем имя программы Z1

var i,j: byte; // объявляем две переменные i, j типа byte 

begin    // начало блока операторов 1

  for i:=1 to 9 do // начало цикла, количество повторений равно 9 

     begin  // начало блока операторов 2

         for j:=1 to 9 do  // начало цикла, количество повторений равно 9 

             write(i*j:4);  // вывод на экран результата вычисления i*j:4, выводится при каждом                                      //  выполнении цикла

             writeln; // данный оператор нужен для вывода каждого результата с новой строки

    end; // конец блока операторов 2

end.    //  конец блока операторов 1