zadach309.BAS

{* Задача309 *}

REM basic

' Построить совокупность n квадратов с общим центром.


CLS
INPUT n
CLS
SCREEN 12
For i = 0 To n
      LINE (320 - n * 5 + i * 5, 240 - n * 5 + i * 5)-(320 + n * 5 - i * 5, 240 + n * 5 - i * 5), 15, B
Next i
End