Вроде так, если я все верно понял и расставил как нужно .
Если речь идет об электронных таблицах, то ячейка именуется по умолчанию номером столбца и номером строки. Например: А5, В10, IV65536. Пользователь может сам вместо такого имени ячейки присвоить ей мнемоничное (отражающее суть данных) имя, но об этом можно говорить уже после того, как основные операции с таблицей освоены.
Если одинаковые это имеется ввиду одинаковое количество сот, то решение будет таким: 1-й ряд- 2,3 и 4 фигуры, 3й ряд- 1,2 и 3 фигуры. Оставшиеся фигуры делим на две по одной черной и две белых
Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>