11. Напишите программу, выводящую на экран изображение шахматной доски, где чёрные клетки изображены звёздочками, а белые — пробелами. Рекомендуется очищать экран после выполнения программы:

```pascal program Chessboard; var i, j: integer; begin for i := 1 to 8 do begin for j := 1 to 8 do begin if (i + j) mod 2 = 0 then write('*') // Черная клетка else write(' '); // Белая клетка end; writeln; // Переход на новую строку после каждой строки доски end; end. ``` Объяснение: * `program Chessboard;` объявляет имя программы. * `var i, j: integer;` объявляет переменные `i` и `j` целого типа для использования в циклах. * `for i := 1 to 8 do` запускает внешний цикл для строк доски. * `for j := 1 to 8 do` запускает внутренний цикл для столбцов доски. * `if (i + j) mod 2 = 0 then` проверяет, является ли сумма индексов строки и столбца четной. Если да, то клетка черная, иначе - белая. * `write('*')` выводит звездочку для черной клетки. * `write(' ')` выводит пробел для белой клетки. * `writeln;` переходит на новую строку после каждой строки доски. Чтобы очистить экран после выполнения программы в Pascal (хотя это и не обязательно для этого задания), можно использовать процедуру `ClrScr` (если она доступна в вашей среде разработки). Например, если вы используете Turbo Pascal, то можно добавить `uses crt;` в начале программы и вызвать `ClrScr;` в конце программы.