Выведите таблицу из символов "*", пропустив элементы, находящиеся в нечетных строках и четных столбцах - Free Pascal

Формулировка задачи:

Выведите на экран таблицу 20х20, заполненную символами "*", пропустив при этом элементы, находящиеся одновременно в нечетных строках и четных столбцах.

Решение задачи: «Выведите таблицу из символов "*", пропустив элементы, находящиеся в нечетных строках и четных столбцах»

Листинг программы

const n=20;
var i,j:byte;
begin
for i:=1 to n do
 begin
  for j:=1 to n do
  if odd(i)and (j mod 2=0) then write(' ')
  else write('*');
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

В первой строке объявляется константа n равная 20, она будет использоваться для ограничения размеров таблицы.
Далее объявляются две переменные i и j типа byte.
Затем происходит двойной цикл for, который будет перебирать все ячейки таблицы.
Внутри цикла проверяется условие odd(i)and (j mod 2=0), оно возвращает true, если текущая строка нечетная и текущий столбец четный.
Если условие выполняется, то выводится пробел, иначе выводится символ *.
После окончания внутреннего цикла, выводится символ новой строки writeln.
Цикл повторяется для всех строк таблицы.
В конце программы происходит считывание символа с помощью readln.