Создайте процедуру, рисующую квадрат по заданным координатам центра и половине длины стороны. Выведите «коридор» из квадратов:

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9

<table> служит контейнером для элементов, определяющих содержимое таблицы. Любая таблица состоит из строк и ячеек, которые задаются с тегов <tr> и <td>. Внутри <table> допустимо использовать следующие элементы: <caption>, <col>, <colgroup>, <tbody>, <td>, <tfoot>, <th>, <thead> и <tr>.

Синтаксис

<table>

<tr>

<td>...</td>

</tr>

</table>

Атрибуты

align Определяет выравнивание таблицы.

background Задает фоновый рисунок в таблице.

bgcolor Цвет фона таблицы.

border Толщина рамки в пикселах.

bordercolor Цвет рамки.

cellpadding Отступ от рамки до содержимого ячейки.

cellspacing Расстояние между ячейками.

cols Число колонок в таблице.

frame Сообщает браузеру, как отображать границы вокруг таблицы.

height Высота таблицы.

rules Сообщает браузеру, где отображать границы между ячейками.

summary Краткое описание таблицы.

width Ширина таблицы.