
06.01.2010, 20:35
|
 |
Гуру
|
|
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
|
|
А так если?
Код:
for i:byte:= 1 to 20 do
for k:byte:= 1 to 20 do
Rectangle(i*20,k*20,19,19);
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
|