{* Задача119 *}

REM basic

' Составить программу для вычисления числа воскресений в 2004 году если первое воскресенье приходиться на 4 января.


S=0
For I=4 To 366 Step 7
S=s+1
Next I
PRINT” в 2004 году будет “ s” воскресений”
End