zadach202.BAS

{* Задаача202 *}

REM basic

' Вывести четные числа от 2 до 24 в строки с таким же номером и столбцы,
' равные произведению 2*х.


CLS

LOCATE 2, 2 * 2: PRINT 2
LOCATE 4, 2 * 4: PRINT 4
LOCATE 6, 2 * 6: PRINT 6
LOCATE 8, 2 * 8: PRINT 8
LOCATE 10, 2 * 10: PRINT 10
LOCATE 12, 2 * 12: PRINT 12
LOCATE 14, 2 * 14: PRINT 14
LOCATE 16, 2 * 16: PRINT 16
LOCATE 18, 2 * 18: PRINT 18
LOCATE 20, 2 * 20: PRINT 20
LOCATE 22, 2 * 22: PRINT 22
LOCATE 24, 2 * 24: PRINT 24

End